'Subscript out of range' mais pour moi la fonction est bonne... c'est assez décourageant j'arrive pas à faire un programme seul.

J'assigne une identité aux cells(i,2)
je recherche la première occurence de la valeur dans une autre feuille et j'écris l'adresse dans la cellule à côté, mais rien ne marche.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub rechercheAppli()
For i = 2 To 40
Cells(i, 2).Value = appli
With Worksheets("Conso").Sheets(1).Range(Cells(1, 13), Cells(10, 13))
Set appliutilisee = .Find(appli, LookIn:=xlValues)
End With
firstadress = appliutilisee.Address
Cells(i, 3).Value = firstadress
Next i
End Sub
*Merci de votre aide*
NulEnVBA