Bonjour et Bonne année.
je suis débutant et ne fait que du copier coller de toutes vos astuces dans ce forum.
Comment transformer le code suivant en une boucle (j'ai 22 ligne...) ?
d1 = Range("A5").Value
d2 = Range("A6").Value
d3 = Range("A7").Value
d4 = Range("A8").Value
....
If d1 <> "" Then
Range(Cells(lig, 1), Cells(lig, 1)) = DateValue(d1)
End If
If d2 <> "" Then
Range(Cells(lig + 1, 1), Cells(lig + 1, 1)) = DateValue(d2)
End If
If d3 <> "" Then
Range(Cells(lig + 2, 1), Cells(lig + 2, 1)) = DateValue(d3)
End If
If d4 <> "" Then
Range(Cells(lig + 3, 1), Cells(lig + 3, 1)) = DateValue(d4)
End If
Merci d'avance, et bonne journée