Bonsoir jepi67,
La petite variante ci-dessous doit correspondre à ce que tu veux :
Function ADRCELL(Valeur, Matrice As Range) As String
ADRCELL = "#N/A"
For Each Cellule In Matrice
If Cellule.Value = Valeur Then
If Application.ReferenceStyle = xlA1 Then
ADRCELL = Replace(Cellule.Address(), "$", "")
Else
ADRCELL = Replace(Cellule.Address(ReferenceStyle:=xlR1C1), "R", "L")
End If
Exit Function
End If
Next
End Function
Si la valeur demandée est trouvée, la fonction renvoie l'adresse de la cellule (dans le style A1 ou L1C1 selon l'option en cours). Si la valeur n'est pas trouvée, elle renvoie "#N/A".