Déplacer cellules

Bonjour,

J'ai des difficultés à décaler mes cellules.

Tout est expliquer dans le classeur excel.

Pour résumer je souhaiterais que ma colonne H, déplace les éléments dans la colonne F sans masquer les éléments déjà présent.

Dans un second temps je souhaiterais que dans la colonne G, s'affiche le mot "hello" à côté du 999.

Merci de votre aide.

Seb

Bonjour,

essaie ceci :

Sub melch()

For i = 1 To Cells(Rows.Count, 8).End(xlUp).Row
    If Cells(i, 8) = 999 Then
        Cells(i, 6) = Cells(i, 8)
        Cells(i, 7) = "Hello"
        Cells(i, 8) = ""
    End If
Next

End Sub

Merci beaucoup