Bonsoir,
A tester
Sub Copie_Date()
'
' Copie_Date Macro
'
'
Range("C7").Select
ActiveCell.FormulaR1C1 = "12/01/2017" '*****date de départ
Range("C7").Select
Selection.NumberFormat = "ddd-dd-mmm-yyyy" '****** recopie le format vers le bas
Selection.AutoFill Destination:=Range("C7:C372"), Type:=xlFillDefault
Range("C7:C372").Select
Range("C7").Select
End Sub
un exemple sur votre fichier joint
Pierrot
Bonsoir, gmb, excuses-moi, lorsque j'ai posté une solution, je n'avais pas, vu ta réponse
Bonne soirée
Amitiés
Pierrot