Sub Bouton1_Cliquer()
Dim plg As Range, a As Range
On Error GoTo Fin
'SpecialCells retourne une erreur si aucune plage ne correspond à la demande
'ici les plages de cellules vides dans la colonne 1
Set plg = Range("Tableau5[#Data]").Columns(1).SpecialCells(xlCellTypeBlanks)
'Parcourir chaque aires de cellules vides de la plage
For Each a In plg.Areas
'Valeur des cellules vides de la l'aire (area) parcourue (a)
'est égale à la première cellule de l'aire décalée d'une ligne vers le haut
a.Cells.Value = a(0, 1).Value
Next
Fin:
End Sub