Bonjour,
Tu peux t'inspirer de celà
en formule :
=INDEX(E4:E7;EQUIV(MAX(M4:M7);M4:M7;0))
ou sinon en VBA :
Sub Recherche_Maxi()
r = Range("M4:M" & Range("M65536").End(xlUp).Row)
C = Sheets(1).UsedRange.Find(Application.WorksheetFunction.Max(MyRange)).Row
Cells(C, 15).Value = Cells(C, 5).Value
End Sub
Cordialement