Recherche:

tu dis bien COMMENCE PAR !!! car je voie pas de ligne qui commencent par ces caractères dans ton exemple !! , essayez donc avec

Sub TESTTT()
Application.ScreenUpdating = False
With...

bonjour

ou est le problème rencontré?? ou se bloque?? quel message d'erreur?? comment sont présenté tes données???
Un capture écran des tes données et si vraiment nécessaire un fichier test sans...

Si contient METZ

Sub TESTTT()
Application.ScreenUpdating = False
Dligne = Sheets("Feuil1").Range("C" & Rows.Count).End(xlUp).Row ' à adapter si nécessaire
For I = Dligne To 2 Step -1 ' si C1...

en parcourant toute la colonne C et si la valeur d'une cellule =

Sub TEST()
Application.ScreenUpdating = False
Dligne = Sheets("Feuil1").Range("C" & Rows.Count).End(xlUp).Row ' à adapter si...