Discussion :

[sophang]

Bonjour,

J'ai mon fichier Macros qui me permet d'exécuter une macro pour supprimer dans mon fichier Banque de la colonne B les codes BANQUES BNP458 et POUY985.
Le code ne s'exécute pas correctement. Pourriez-vous me venir en aide ?

Voici mon code :

Sub Suppr()

Dim i As Integer
With ThisWorkbook.Sheets("BASE")

For i = .Range("B" & .Rows.Count).End(xlUp).Row To 2 Step -1


If .Range("B" & i).Value = "BNP458" Then .Rows(i).Delete
If .Range("B" & i).Value = "POUY985" Then .Rows(i).Delete

End If
Next i
End With
End Sub

En vous remerciant beaucoup de votre aide.