Bonjour,
Une proposition de macro à coller dans un module standard de l'éditeur VBA (ALT + F11) :
Sub ReportInfos()
Dim Lig As Long, LigMax As Long, Col As Integer
With Sheets("NomFeuille") 'Nom à adapter
LigMax = .Range("F" & Rows.Count).End(xlUp).Row 'Dernière ligne complétée en colonne F
For Lig = 2 To LigMax '2 à adapter à la première ligne du tableau (hors en-tête)
For Col = 1 To 5 'Boucle sur les 5 premières colonnes
If .Cells(Lig, Col) = "" Then .Cells(Lig, Col) = .Cells(Lig - 1, Col) 'Si vide, report cellule du dessus
Next Col
Next Lig
End With
End Sub
PS : l’exécution de la macro est manuelle
Edit : salut M12 !