VBA - Recherche valeur dans plusieurs onglets

Sub chercheFindMultiFeuillesValeur()
  ligne = 2
  For Each c In Range("A3", [A65000].End(xlUp))
    témoin = False
    For i = 2 To Sheets.Count
     If Sheets(i).Name Like "Ventes*" Then
        Set d = Sheets(i).[A:A].Find(c, LookIn:=xlValues)
        If Not d Is Nothing Then témoin = True
     End If
     Next i
     If Not témoin Then
       ligne = ligne + 1
       Cells(ligne, "f") = c
       Cells(ligne, "g") = c.Offset(0, 1)
       Cells(ligne, "h") = c.Offset(0, 2)
     End If
   Next c
 End Sub