Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PL As Range 'déclare la variable PL (PLage)
Dim I As Integer 'déclare la variable I (Incrément)
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
Set PL = O.Range("A1").CurrentRegion 'définit la plage PL
For I = 2 To PL.Rows.Count 'boucle sur toutes les lignes I de la plage PL (en partant de la seconde)
If O.Cells(I, 1).Value = "" Then O.Cells(I, 2).Copy O.Cells(I, 1) 'ou O.Cells(I, 1).Value = O.Cells(I, 2).Value
Next I 'prochaine ligne de la boucle
End Sub