Bonjour, j'ai un message d'erreur d'Excel

Erreur d'execution '13'
Incompatibilité de type
sur une recherche toute simple et là vraiment je sèche. Voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Set sheet3 = Worksheets("Feuille3")
With sheet3.Range("C:C")
    Set c = .Find(What:="toto", After:=ActiveCell, LookIn:=xlValues, _
          LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
          MatchCase:=False, SearchFormat:=False)
    If Not c Is Nothing Then
      x = c.Row
    End If
End With
Ca plante sur la recherche .Find

Par contre, si je recherche sur la colonne A, avec

Code : Sélectionner tout - Visualiser dans une fenêtre à part
With shFile1.Range("A:A")
ou sur les 3 colonnes
Code : Sélectionner tout - Visualiser dans une fenêtre à part
With shFile1.Range("A:C")
ça fonctionne, mais impossible sur la seule troisième colonne

Je précise que je lance la macro à partir du Worksheets("Feuille1"), ça a une incidence ?

Merci par avance