Bonjour Cam90,
je suis loin d'être un expert en VBA.
Voici ce que je te propose
Sub Macro1()
Dim i%, Nbligne%
'compte le nombre de ligne dans la colonne A
Nbligne = Application.CountA(Range("A:A"))
' on effectue une boucle sur le nombre de ligne
For i = Nbligne To 2 Step -1
' on regarde la valeur des cellule en colonne B
If Range("B" & i).Value = "B" Or _
Range("B" & i).Value = "G" Or _
Range("B" & i).Value = "I" Then
' on supprime les lignes avec B,G et I
Range("B" & i).EntireRow.Delete End If
Next
End Sub
Il y a surement mieux. On peut peut-être le faire avec une fonction.
Cordialement.