Macro remplissage si cellule vide

bonjour ,

j'ai un souci pour créer une macro qui ferait ceci

toutes les cellules vides de la colone A doivent prendre la valeur de la dernière cellules remplit au dessus d'elle.

est ce réalisable ?

merci de votre aide

Bonjour,

Sub RemplirVide()
Dim i As Long
    With Worksheets("Feuil1")
        For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
            If Range("A" & i).Value = "" Then Range("A" & i).Value = Range("A" & i).Offset(-1, 0).Value
        Next i
    End With
End Sub

A+

merci !!!!!!!!!!!!!!!!