Sub Macro1()
Dim pl As Range 'déclare la variable pl (PLage)
Dim plv As Range 'déclare la variable plv (PLage des Valeurs)
Dim m As Double 'déclare la variable m (Maximum)
Dim r As Range 'déclare la variable r (Recherche)
Dim pa As String 'déclare la variable pa (Première Adresse)
Dim msg As String 'déclare la variable msg (MeSsaGe)
Set pl = Range("A1").CurrentRegion 'définit la plage pl (à adapter à ton cas)
Set plv = pl.Offset(1, 1).Resize(pl.Rows.Count - 1, pl.Columns.Count - 1) 'définit la plage plv (pl ans les étiquettes)
m = Application.WorksheetFunction.max(pl) 'définit la variable m (max de pl)
Set r = plv.Find(m, , xlValues, xlWhole) 'définit la recherche r (Recherche m dans pl)
If Not r Is Nothing Then 'condition : si il existe au moins une occurrence
pa = r.Address 'définit la première adresse
msg = "Maximum : " & r.Value & Chr(10) & Chr(10)
Do 'Exécute
r.Interior.ColorIndex = 4 'couleur verte pour la cellule max
Cells(1, r.Column).Interior.ColorIndex = 3 'couleur rouge pour l'heure
Cells(r.Row, 1).Interior.ColorIndex = 3 'couleur rouge pour le TC
msg = msg & Cells(1, r.Column).Value & " / " & Format(Cells(r.Row, 1), "hh:mm") & Chr(10) 'définit la message
Set r = pl.FindNext(r) 'redéfinit la recherche (occurrence suivante)
Loop While Not r Is Nothing And r.Address <> pa 'boucle tant qu'il existe des occurrences ailleurs qu'en pa
MsgBox msg, vbOKOnly, "MAXIMUM" 'affiche le message
pl.Interior.ColorIndex = xlNone 'supprime les couleurs
End If
End Sub