Sub Macro1()
Dim cel As Range 'déclare la variable cel
'boucle sur toutes les cellules des colonnes A et B
For Each cel In Range("A2:B" & Range("D65536").End(xlUp).Row)
'si la cellule est vide, elle prend la valeur de la cellule du dessus
If cel.Value = "" Then cel.Value = cel.Offset(-1, 0).Value
Next cel 'prochaine cellule des colonnes A et B
End Sub