Sub Autocars()
Dim i As Byte 'Indice de boucle
Dim NumF As Byte 'Index de la feuille Recap
Dim MoyJ 'Moyenne colonne J
Dim MoyP 'Moyenne colonne P
Dim CptR 'Index ligne pour feuille Recap
NumF = Sheets("Recap").Index - 1
CptR = 3
For i = 1 To NumF
Sheets(i).Select
MoyJ = Application.WorksheetFunction.Average(Range("J13:J65536"))
MoyP = Application.WorksheetFunction.Average(Range("P13:P65536"))
With Sheets("Recap")
.Cells(CptR, "B").Value = MoyJ
.Cells(CptR, "C").Value = MoyP
End With
CptR = CptR + 1
Next
End Sub