Dim Plage1 As Range, c As Range, cell As Range
Dim g As Integer, h As Integer, i As Integer, j As Integer
Dim d As Integer, e As Integer
g = Sheets("saisie").Range("C2").Value
h = g - 11
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each cell In Sheets("saisie").Range("liste")
Set Plage1 = Sheets(cell.Value).Range("b" & h & ":p" & h)
Set c = Plage1.Find(Application.WorksheetFunction.Max(Plage1), LookIn:=xlValues)
d = Sheets("Accueil").Range("B3:N27").Find(cell.Value).Row
e = Sheets("Accueil").Range("B3:N27").Find(cell.Value).Column
On Error Resume Next
Cells(d, e).Offset(1, 1) = Sheets(cell.Value).Cells(3, c.Column).Value
Cells(d, e).Offset(1, 2) = c
Next cell