Sub Mettre_0_Cellule_20()
Dim Liste, Plage As Range, PL%, DL%, L%, I%, Mot$, T_In, T_Out
Application.ScreenUpdating = False ' Fige écran
Liste = Array("TEXT 1", "TEXT 5", "TEXT 4", "TEXT 7") ' Liste des mots à rechercher
PL = Range("C1").End(xlDown).Row ' Première ligne
DL = Range("C65500").End(xlUp).Row ' Dernière ligne
T_In = Range(Cells(PL, "C"), Cells(DL, "C")) ' Transfert dans array de la zone utile
ReDim T_Out(UBound(T_In)) ' T_Out array de sortie qui sera dans W
For L = 1 To UBound(Liste) ' Pour tous les mots cherchés
Mot = Liste(L)
If Mot <> "" Then
For I = 1 To UBound(T_In) ' Pour tous les mots de la liste
If T_In(I, 1) Like "*" & Mot & "*" Then ' Si contient le mot
T_Out(I) = 0 ' 0 dans l'array de sortie
End If
Next I
End If
Next L
Range("W" & PL).Resize(UBound(T_Out), 1).Value = Application.Transpose(T_Out) ' Transfert array dans plage W
Application.ScreenUpdating = True
End Sub