[méthode Find] Trouver texte avec caractère spécial

Sub test()
With Worksheets(1).Range("a1:a11")
    Set c = .Find(5, after:=Range("A11"), LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
          Debug.Print c.Address
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

End Sub

Sub test()
If Sheets("Feuil1").Range("A1") = ChrW(955) Then MsgBox "Le caractère lambda est situé en $A$1" & Chr(10) & "Son code Unicode est 955"
Set c = Sheets("Feuil1").Cells.Find(ChrW(955), LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True)
If Not c Is Nothing Then
firstAddress = c.Address
    Do
      If c.Address <> "$A$1" Then MsgBox "Le caractère lambda est situé en " & c.Address & Chr(10) & "Son code Unicode est " & AscW(c)
      Set c = Sheets("Feuil1").Cells.FindNext(c)
    Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End Sub

DerLiS = .Range("A65536").End(xlUp).Row
.../...
With plage
      Set cel = .Find(VSearch, after:=Range("B" & DerLiS), LookAt:=xlPart)