Salut Stef, salut le forum,
Essaie comme ça :
With Range("A" & Compteur)
'définit la recherche par rapport au mot clé (ici "septentrionale", à adapter)
Set cherch = .Find("septentrionale", LookIn:=xlValues)
'condition : si trouvé
If Not cherch Is Nothing Then
Range("A" & Compteur).EntireRow.Delete 'efface la ligne
End If
End With
À plus,
Robert