Bonjour katyjane, bonjour le forum,
Une proposition VBA :
Sub Macro1()
Dim DL As Long 'déclare la variable DL (Dernière Ligne)
Dim I As Long 'déclare la variable I (Incrément)
Dim VA As String 'déclare la variable VA (Valeur colonne A)
Dim VB As String 'déclare la variable VB (Valeur colonne B)
Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
DL = Cells(Application.Rows.Count, "C").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne C
For I = 5 To DL 'boucle sur les lignes 5 à DL
If Cells(I, "A").Value <> "" Then 'condition : si la cellule de la ligne en colonne "A" n'est pas vide
VA = Cells(I, "A"): VB = Cells(I, "B") 'définit les valeurs VA et VB
Else 'sinon
Cells(I, "A") = VA: Cells(I, "B") = VB 'renvoie VA dans la cellule en colonne A et VB dans la cellule en colonne B
End If 'fin de la condition
Next I 'prochaine ligne de la boucle
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub