Sub test_i()
'auteur: Ken Marron
'nom macro originale:FindMaxCell
Dim dMax As Double
Dim aVals As Variant
Dim rS As Range
Dim i As Integer, j As Integer
Set rS = Range("A1:A" & [A65536].End(xlUp).Row)
aVals = rS
dMax = Application.WorksheetFunction.Max(rS)
For i = 1 To UBound(aVals, 1)
For j = 1 To UBound(aVals, 2)
If dMax = aVals(i, j) Then GoTo done
Next j
Next i
done:
Set rS = rS.Cells(1).Offset(i - 1, j - 1)
MsgBox "Adresse de la cellule avec la valeur maximale: " & rS.Address _
& (Chr(13) & Chr(10)) & "Valeur = " _
& rS.Value & Chr(13) & "Valeur de la cellule adjacente (colonne B) : " _
& rS.Offset(0, 1)
End Sub