Sub days()
Dim pl As Range 'déclare la variable pl (PLage)
Dim r As Range 'déclare la variable R (Recherche)
Set pl = Range("B2:B182") 'définit la plage pl
Set r = pl.Find(Application.WorksheetFunction.Max(pl), , xlFormulas, xlWhole) 'définit la recherche r (recherche la valeur maximale dans la plage pl)
Range("D1").Value = r.Offset(0, -1) 'place en D1 le jour de l'occurrence touvée
End Sub