Bonjour Tournament.
Une proposition :
Sub Copie_Date()
Dim i%, l%
'Dernière ligne remplie en colonne G
l = Sheets("Feuil2").[G65000].End(xlUp).Row
'On boucle sur la colonne G
i = l
With Sheets("Feuil2")
Do While .Cells(i, "F") = ""
.Cells(i, "F").Value = Format(.[B1].Value, "dd/mm/yyyy")
i = i - 1
Loop
End With
End Sub
PS: Bonjour gmb, désolé pour la collision.