Comparer entre le max de deux tableau (Macro)

Bonjour,

Il y a pas longtemps j'ai demandé un macro me permettant de comparer entre chaque case de deux tableaux dormir, me donner le max entre eux :

T1 = max tabeau 1 (de B5 jusqu'à B18)
T2 = max tabeau 2 (de C5 jusqu'à C18)

D'affichier par exemple le message :

Si T1>T2 il affiche "tabeaux 1"
Si T1<T2 il affiche "tabeaux 2"
Si T1=T2 il affiche "tabeaux 1"

ccm81 il m'a beaucoup aidée en me donnant le macro suivant :

Option Explicit

Public Function Compare(T1 As Range, T2 As Range) As String
Dim s As String, nmax1 As Long, nmax2 As Long, n As Long
Application.Volatile
s = "T1 et T2"
nmax1 = Range
nmax2 = T1.Cells.Count
n = 0
Do
  n = n + 1
Loop Until n = nmax Or T1.Cells(1, n).Value <> T2.Cells(1, n).Value
If T1.Cells(1, n).Value > T2.Cells(1, n).Value Then
  s = "T1"
Else: If T1.Cells(1, n).Value < T2.Cells(1, n).Value Then s = "T2"
End If
Compare = s
End Function

Et je le suis reconnaissant

Maintenant j'ai besoin d'un macro du même type que celui au-dessus qui calcul d'abord le Max de chaque tableau puis il compare entre eux et enfin il affiche le message :

Si T1>T2 il affiche "tabeaux 1"
Si T1<T2 il affiche "tabeaux 2"
Si T1=T2 il affiche "tabeaux 1"

Je demande votre aide car je suis nul en langage VBA

Merci d'avance

Comment ça marche c'est cool! 
      1000 Merci les Amis