Sub ruru_2()
Dim i&, j& 'deux variables type Long pour les boucles
Dim Ligne& ' une variable pour la dernière ligne remplie
With Sheets("Feuil1") 'Nom de feuille à adapter
'on trouve la ligne de la dernière cellule remplie de la feuille
'Si tu connais la ligne (X) tu mets Ligne = X
Ligne = .Cells.Find("*", .Cells(.Rows.Count, .Columns.Count), xlValues, , 1, 2, 0).Row
For i = 2 To Ligne 'pour chaque ligne
For j = 1 To 8 'pour les colonnes de A à H
'Si la cellule ligne i colonne J est vide, on la remplie avec la valeur de la cellule au-dessus (ligne i-1
If Cells(i, j).Value = "" Then Cells(i, j).Value = Cells(i - 1, j).Value
Next j 'prochaine colonne
Next i 'Prochaine ligne
End With
End Sub