Sub adresse_plage_find()
j = 0
'-- critères de recherche (plage, valeur et occurence recherchée)
Set plage = Range("E7:M25")
'plagey = plage.Address
Valeur = "NOM"
a = Cells(1, 6)
'-- méthode find
Set x = plage.Find(Valeur, plage.Cells(plage.Rows.Count, plage.Columns.Count), xlValues, xlWhole)
If Not x Is Nothing Then
FirstAddress = x.Address
Do
xa = x.Address
j = j + 1
If j = a Then Exit Do
Set x = plage.FindNext(x)
Loop While Not x Is Nothing And x.Address <> FirstAddress
End If
'-- restitution
suite:
Cells(2, 1) = xa '-- indique la troisième occurence !!
End Sub