COUPER COLLER cellules avec conditions

bonjour , j'essaye de faire une macro qui cherche dans la colonne D ( à partir du ligne 5) si il y'a une cellule qui n'est pas vide , il le coupe et colle dans la cellule à gauche du colonne C ,

ci joint un fichier , avec l'onglet ( FINAL) pour vous montrer ce que j'essaye de faire , merci de mettre des commentaires dans le code pour que je puisse comprendre mieux , je vous remercie pour vos efforts,

nb,le nombre de lignes peut changer

Marcos

Bonjour

Code Module standard

Sub Copie()
'selection à partir d'une colonne sans vide (ici h) d'une plage identique en colonne D (4 colonnes à gauche) et Copie
Range("h5", Range("h5").End(xlDown)).Offset(0, -4).Copy
'Collage des valeurs sans les cellules vides en colonne C
Range("C5").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        True, Transpose:=False
    Range("C5").Select
    Application.CutCopyMode = False
    'Effacement des données copiées précédemment
 Range("h5", Range("h5").End(xlDown)).Offset(0, -4).ClearContents
End Sub

Cordialement

Ah ok très bonne explication j'ai compris , c'est vraiment gentil je vous remercie pour vos efforts