Plus grande valeur

Sub Macro1()
 
'j'ai déclaré les variables comme "Integer" mais tu adapteras si nécessaire
Dim prem As Integer, sec As Integer, trois As Integer 'déclare les variables prem, sec et trois
Dim premeq As Integer, seceq As Integer, troiseq As Integer 'déclare les variables premeq, seceq et troiseq
 
Dim tablo As Range 'déclare la variable tablo
 
Set tablo = Range("A1:D4") 'définit la variable tablo (à adapter à ton cas)
prem = WorksheetFunction.Large(tablo, 1) 'définit la variable prem
sec = WorksheetFunction.Large(tablo, 2) 'définit la variable sec
trois = WorksheetFunction.Large(tablo, 3) 'définit la variable trois
 
'***************************************************************************************************************
'attention au bug si l'une des trois plus grandes valeurs se trouve dans la colonne A (offset(0, -1) va planter)
'***************************************************************************************************************
With tablo 'prend en compte la plage "tablo"
    premeq = .Find(prem).Offset(0, -1).Value 'définit la variable premeq
    seceq = .Find(sec).Offset(0, -1).Value 'définit la variable seceq
    troiseq = .Find(trois).Offset(0, -1).Value 'définit la variable troiseq
End With 'fin de la prise en compte de la variable "tablo"
 
MsgBox premeq & ", " & seceq & ", " & troiseq 'message affichant les valeurs
 
End Sub