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