Combler des cellules vides

Bonjour forum,

Dans un classeur, certaines cellules vides de la colonne B sont vides. Voici un exemple:

Col. A Col. B

Émis 152051

YWA.

Émis 152310

WMJ

Émis 160116

WMJ

YWA.

Grâce à une macro, j'aimerais obtenir ceci:

Col. A Col. B

Émis 152051

YWA. 152051

Émis 152310

WMJ 152310

Émis 160116

WMJ 160116

YWA. 160116

Bref, les cellules vides de la colonne B sont comblées par la valeur précédente de la ligne "émis".

Je joins un fichier en exemple.

Merci d'avance,

Émil

Bonsoir,

Essaye le code suivant :

Sub remplirCelluleVide()
    Dim Copie As Variant
    For i = 1 To [A1].End(xlDown).Row
        If Cells(i, 1) = "Émis" Then
            Copie = Cells(i, 1).Offset(0, 1)
        Else
            Cells(i, 1).Offset(0, 1) = Copie
        End If
    Next i
End Sub

Merci, ça marche no 1.