Sub Macro1()
Dim myRange As Range
Set myRange = Worksheets(1).Range("N1:N65535")
trouvemax = Application.WorksheetFunction.Max(myRange)
For i = 1 To Range("N65536").End(xlUp).Row
If Cells(i, 14).Value = trouvemax Then
ligne = i + 2
Exit For
End If
Next i
Rows(ligne).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
End Sub