Fonction maximum d'une cellule de tous les onglets

Bonjour,
je voudrai obtenir à l'aide d'une fonction, la valeur maximale d'un ensemble de cellules correspondant à la même cellule de chaque onglet de mon classeur.
La fonction me renvoie une erreur type #valeur!

voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Public Function max_clas(cel As Range) As Integer Dim Arr() As Integer 'Tableau contenant toutes les valeurs de la cellule choisie Dim i As Integer   ReDim Arr(1 To Application.Worksheets.Count) For i = 1 To Worksheets.Count Arr(i) = Worksheets(i).cel.Value Next i     max_tab = Application.Max(Arr)   End Function

---

cordialement,

Bonjour,

Code:

---

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

Public Function max_clas(cel As Range) As Integer   Dim Arr() As Integer 'Tableau contenant toutes les valeurs de la cellule choisie Dim i As Integer     ReDim Arr(1 To Worksheets.Count)   For i = 1 To Worksheets.Count   Arr(i) = Worksheets(i).Range(cel.Address).Value   Next i   max_clas = Application.Max(Arr)   End Function

---