Bonjour,

I've exactly done this in a new workbook:

Sub Essai()
Dim cellule
Set cellule = Worksheets("Feuil1").Range("A:A").Find(what:="Toto ",
LookIn:=xlValues)
MsgBox cellule.Value
End Sub

Programme finds the cell when it is visible and don't find when it is hidden
or when it is grouped.
If somebody has few minuts to see my problem I can send him the workbook.

Thanks
Decaplan