Sub Macro1()
Dim te(2) As String 'déclare le taleau de variables te (Tableau des États)
Dim x As Byte 'déclare la variable x
Dim pl As Range 'déclare la variable pl (PLage)
Dim r As Range 'déclare la variable r (Recherche)
Set pl = Range("E1:E" & Range("E65536").End(xlUp).Row) 'définit la plage pl
te(0) = "ECH04" 'définit la variable t(0)
te(1) = "ECH34" 'définit la variable t(1)
te(2) = "ECH44" 'définit la variable t(2)
For x = 0 To 2 'boucle sur les trois états
Set r = pl.Find(te(x), , , xlPart) 'de'finit la variable r
'si il n'exsite aucune occurrence de r dans la plage pl, message
If r Is Nothing Then MsgBox "L'état " & te(x) & " n'existe pa dans la colonne E !"
Next x 'prochain état de la boucle
'ta macro
End Sub