Sub Plus_Grande_Valeur()
Dim COLET$: COLET = InputBox("Lettre de la colonne?", "RECHERCHE DU MAX", "A")
gotomax Cells(1, COLET).Column
End Sub
Private Sub gotomax(x As Long)
Dim p As Range, cMax As Range
Set p = Range(Cells(1, x), Cells(Rows.Count, x).End(3))
With p
Set cMax = p.Cells(Application.Match(Application.Max(p), p, 0))
If Not cMax Is Nothing Then
Application.Goto cMax
End If
End With
End Sub