x1 = "~?"
x2 = "~*"
x1 = plage.Find(What:=c1, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Address
x2 = plage.Find(What:=c2, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Address
If Not x1 = "" Then
MsgBox "caractère c1 trouvé"
Elseif Not x2 = "" Then
MsgBox "caractère c2 trouvé"
Else
MsgBox "aucun caractere trouvé"
End If