Bonjour, voilà l'erreur que me renvoit ce code. Je souhaite faire pourtant un truc simple: à partir d'une feuille donnée (celle des cells(i,1).value) je recherche si les valeurs qu'il y a se retrouvent dans la feuille "Lotissement v27" et si oui, alors je renvoie l'immatriculation de la cellule, mais j'ai une erreur comme indiquée dans le titre.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub rang()
For i = 1 To Cells(1, 1).End(xlDown).Row
c = Cells(i, 1).Value
With Worksheets("Lotissement v 3.27_ELE.xls").Range("a1:a100")
Set f = .Find(c, LookIn:=xlValues)
End With
If f > 0 Then
Cells(i, 2).Value = f.Address
End If
Next i
End Sub
Ca vous paraît débile ce que j'ai écrit?

Merci de votre aide signé l'handicapé du VB