optimisation de fonction

cette fonction est cherche dans un tableau une valeur minimum, et renvoie la ligne et la colonne ou se trouve la valeur Min.
Que pensez vous de cette fonction
Comment l'optimiser
Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Function recherche(Min) Dim Numbers(1 To 2) With Range(Sheets("Minimum").Range("A1"), Sheets("Minimum").Range("AX74")) Set C = .Find(Min, LookIn:=xlValues) firstAddress = C.Address Do Set C = .FindNext(C) Numbers(1) = C.Row Numbers(2) = C.Column Loop While Not C Is Nothing And C.Address <> firstAddress End With recherche= Numbers End Function     Sub rg() L = wfwf(WorksheetFunction.Min(Tableau)) MsgBox L(1) End Sub

---

Là, si tu as plusieurs valeurs Min, ça va te donner la dernière occurence trouvée de Min et donc la dernière adresse. Si tu n'en cherches qu'une, la boucle est inutile

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function recherche(Min) Dim Numbers(1 To 2) With Range(Sheets("Minimum").Range("A1"), Sheets("Minimum").Range("AX74")) Set C = .Find(Min, LookIn:=xlValues) If Not C Is Nothing Then Numbers(1) = C.Row Numbers(2) = C.Column recherche= Numbers endif End With End Function

---

Tu pourrais aussi mettre

Code:

---

1 2 3 4

With Range(Sheets("Minimum").Range("A1"), Sheets("Minimum").Range("AX74")) Set C = .Find(Min, LookIn:=xlValues) If Not C Is Nothing Then recherche= C.address End With

---

qui ramènerait l'adresse complète ;)
A+

Edit
Et déclare c as range ;)