Supprimer une cellule ET celle située à sa gauche

Bonjour tout le monde,

Je suis un débutant en Macro et en VBA et j'aurais besoin d'un petit coup de main.

Mon fichier est composé de plusieurs colonnes et j'aimerais que si une cellule de la colonne B contient "VIDE" elle soit supprimée de même que la cellule à sa gauche. En bidouillant des codes que j'ai récupéré j'ai ça:

Sub Suppression()

Dim i%

For i = 1005 To 2 Step -1

If Cells(i, 2).Value = "VIDE" Then (..........)

Next i

End Sub

Je ne sais pas comment écrire en VBA après Then "supprimer la cellule et la cellule de la colonne précédente située sur la même ligne" c'est pour ça que j'aurais besoin de votre aide.

J’espère que j'ai été clair

Merci d'avance pour vos réponses !

PS: la solution de supprimer entièrement la ligne ne marche pas parce que mon tableau comporte d'autres colonnes.

Bonjour,

Essaie un truc comme ça :

Sub Suppression()
Dim i%
For i = 1005 To 2 Step -1
If Cells(i, 2).Value = "VIDE" Then '(..........)
  Cells(i,2).Value =""
  Cells(i,1).Value =""
Next i
End Sub

Bonjour,

Merci pour la réponse rapide mais je ne sais pas pourquoi cela m'affiche "compile error: Next without For" alors qu'il y a bien un Next et un For.

Désolé, c'est de ma faute, il manque

End If

avant le

Next i

Merci beaucoup ça marche !