J'ai trouvé la solution !
Pour infos pour ceux qui recherchent la même chose :
Function MinAddress(The_Range)
' Sets variable equal to minimum value in the input range.
MinNum = Application.Min(The_Range)
' Loop to check each cell in the input range to see if equals the
' min variable.
For Each cell In The_Range
If cell = MinNum Then
' If the cell value equals the max variable it
' returns the address to the function and exits the loop
MinAddress = cell.Address
Exit For
End If
Next cell
End Function
Cette fonction donne la référence de la cellule avec la valeur minimal de la plage.
A+
Adrien