Slaut
Je ne comprends comment ma macro ne fonctionne pas chez toi. Puisque tu connais les valeurs à suprimer, essaies ça:
Sub Macro1()
For i = 1 To 162
'1 si tu veux que la macro fonctionne à partie de la ligne1
'Comme je n'ai pas le fichier, je ne connais pas cette ligne
'Tu choisis le nombre de ligne
For j = 4 To 4
'Si j'ai bien compris, c'est la colonne 4 qui sert de référence
If Cells(i, j) = "HGR" Or Cells(i, j) = "UU" Or Cells(i, j) = "MU" Or Cells(i, j) = "BA" Or Cells(i, j) = "+PS" Or Cells(i, j) = "AC" Then
Rows(i).Delete
End If
Next j
Next i
End Sub