Copier valeur cellule non vide dans cellule voisine

bonjour ,svp je voudrais créer une macro qui va parcourir la colonne H et copier les valeur des cellules non vide dans celle voisine en occurrence dans la cellule de la colonne G ,c'est a dire copier valeur cellule H2(si non vide) dans cellule G2 ainsi de suite .

voici joint un fichier d'illustration

Cordialement

Salut bazDbaz,

à tester

Sub CopierValeurCellule()
Dim sh As Worksheet
Dim Derligne As Long

Set sh = ActiveSheet
Derligne = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row

    For i = 2 To Derligne
        If Range("H" & i) <> "" Then
        Range("G" & i) = Range("H" & i)
        End If
    Next i
End Sub

@++

Voilà

Edit: La méthode du précédent message fonctionnera également très bien

Merci infiniment m3ellem1 ca marche nickel

Merci infiniment funkyfoenky ca marche aussi très bien