Sub Macro1()
Dim cel As Range 'déclare la variavle cel
'boucle sur toutes les cellules de la selection jusqu'à la dernière ligne éditée
For Each cel In Range(ActiveCell, Cells(65536, ActiveCell.Column).End(xlUp))
If cel.Value = "" Then cel.FillDown 'condition : si la cellule est vide, recopie la cellule du dessus
Next cel 'prochaine cellule de la plage
End Sub