Recherche macro

Bonjour à tous

Je recherche une macro pour remplir automatiquement les lignes vides. Sachant que le nombre de lignes vides est aléatoire. Voir le fichier joint.

D'avance, merci.

https://www.excel-pratique.com/~files/doc2/Essai.xlsx

bonsoir à tous,

Sub essai()
' de Claude pour "JJC095" le 18 août 09
Dim Lg As Integer, Cel As Range
        Lg = Range("A65536").End(xlUp).Row
    For Each Cel In Range("a2:a" & Lg)
        If Cel.Offset(0, 1) = "" Then
            Range(Cel.Offset(-1, 1), Cel.Offset(-1, 3)).Copy Destination:=Cel.Offset(0, 1)
        End If
    Next Cel
End Sub

Amicalement

Claude.

Bonsoir à tous,

JJC095, c'est ici qu'il faut mettre résolu ! pas en MP

Amicalement

Claude.