Déplacer une donnée dans une autre cellule sous condition

Bonjour à tous,

Je travaille actuellement sur un projet pour lequel j'aurai besoin d'une macro.

Je souhaite déplacer les données situées dans des cellules vers les cellules à gauche sous condition. J'ai joint un exemple, mais mon fichier original est beaucoup plus important.

Dans l'exemple joint si la colonne D contient la donnée OK alors il me faudrait déplacer OK vers la colonne C. Dans mon fichier OK est indiqué en cellule D2 et D4, je souhaite obtenir une macro qui puisse déplacer OK en C2 et C4.

Merci par avance pour votre aide.

Bonne journée à tous

Bonjour,

peux-tu essayer le code suivant :

Sub Déplacer()
Application.ScreenUpdating = False
For I = 2 To Cells(Rows.Count, 4).End(xlUp).Row
    If ActiveSheet.Range("D" & I) = "OK" Then
        Range("C" & I) = "OK"
        Range("D" & I) = ""
    End If
Next
Application.ScreenUpdating = True
End Sub

Merci ouisansdoute, c'est juste parfait !!!

Exactement ce qu'il me fallait, c'est vraiment super de m'avoir trouver cette solution aussi rapidement…..

Bonne fin d'après-midi et merci encore