Sub Essai()
Dim i&, c&, l&, m1&, m2&, m3$, n$, x&
Sheets("Accueil").Activate
For i = 3 To 43 Step 4
For c = 2 To 17 Step 5
If Cells(i, c) <> "" Then
n = Cells(i, c)
Set Ws = Sheets(n)
With Ws
For j = 4 To 31
x = Application.WorksheetFunction.Max(Ws.Rows(j))
If x = 0 Then GoTo Suite
If x > m1 Then
l = Application.Match(x, Application.Transpose(.Rows(j)))
m1 = .Cells(j, l): m2 = Right(.Cells(j, 1), 2): m3 = .Cells(3, l)
End If
Suite:
Next
End With
Cells(i, c).Offset(1, 1) = m3: Cells(i, c).Offset(1, 2) = m1: Cells(i, c).Offset(1, 3) = m2
m1 = 0: m2 = 0: m3 = 0
End If
Next
Next
End Sub