Bonjour,
Essaie ainsi :
Sub q2b()
Dim maPlage As Range, Cptlig As Long
Set maPlage = ThisWorkbook.Worksheets("Feuil1").Cells(1, 1)
maPlage.Offset(, 6).Value = "Moyenne T1-T4"
'Parcours la plage en ligne
For Cptlig = 1 To maPlage.End(xlDown).Row - maPlage.Row
'Complétez la ligne pour calculer la moyenne dans le programme
maPlage.Offset(Cptlig, 6).Value = WorksheetFunction.Average(maPlage.Offset(Cptlig, 2).Resize(, 4))
Next Cptlig
End Sub