Sub Macro1()
Dim Lg As String, i As Integer
For i = Range('A65536').End(xlUp).Row To 1 Step -1
Test = InStr(1, Cells(i, 1), 'Artisan')
If (Test <> '0') Then
Lg = i & ':' & i
Rows(Lg).Delete
End If
Next
End Sub
J'espère que ça va vous aider
Cette macro trie sur la colonne A et supprime toutes les lignes contenant le mot 'Artisan' dans la colonne A