MACRO VBA

Sub Macro1()
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)

DL = Cells(Application.Rows.Count, "C").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne C
For I = 9 To DL 'boucle sur toutes les lignes I de 9 à DL
    'si la cellule ligne I, colonne A est vide récupère la valeur de la cellule au-dessus
    If Cells(I, "A").Value = "" Then Cells(I, "A").Value = Cells(I - 1, "A").Value
Next I 'prochaine ligne de la boucle
End Sub