bonjour @Christophe@, bonjour le Forum,
Merci pour ta réponse;
j'ai un problème avec AutoFill Destination car en fait je voudrais recopier vers le bas A1 sous conditions ( Si D n'est pas vide )
J(ai bien essayé sans succès:
Range("A1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[3]<>"""",NOW(),"""")"
' Selectionne A1 (date) pour un formatage JJMMAAA et recopie vers le bas ( Si D n'est pas vide )
Range("A1").AutoFill Destination:=Range("A1:A" & Range("A65536").End(xlUp).Row), Type:=xlFillDefault
Pourrais-tu me donner une autre piste ?
A+