VBA erreur 91 avec méthode Find

Sub Recherche1()

Dim toto As Long

Application.Goto Reference:="Total1"

toto = ActiveCell.Value

If toto <> "0" Then

Sheets("Feuille").Select

  On Error GoTo Gere_Erreurs
 
  Cells.Find(What:=toto, After:=Range("G1"), LookIn:=xlFormulas, LookAt:= _
  xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
  , SearchFormat:=False).Select

ActiveCell.Offset(0, 2).Value = "Trouvé"
End If
Exit Sub
Gere_Erreurs:

End Sub

Sub Recherche1()
    Dim toto As Long, Cel As Range

    toto = ActiveCell.Value

    If toto <> "0" Then
        Set Cel = Sheets("Feuille").Cells.Find(What:=toto, After:=Range("G1"), LookIn:=xlValues, LookAt:= _
                                              xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
                , SearchFormat:=False)
        If Not Cel Is Nothing Then
            Cel.Offset(0, 2).Value = "Trouvé"
        End If
    End If

End Sub

Sub Recherche1()
  Dim R As Range
  Range("Total1")(1, 3) = ""
  With Sheets("Feuille")
      Set R = .Cells.Find([Total1])
      If Not R Is Nothing And R.Column > 6 Then _
                 Range("Total1")(1, 3) = "Trouvé en " & R.Address
  End With
End Sub