Sub Macro1()
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim nb As Integer 'déclare la variable nb (NomBre)
Dim v As Double 'déclare la variable v (Valeur)
Dim t As Double 'déclare la variable t (Total)
Set pl = Sheets("Feuil1").Range("A4:A1082") 'définit la plage pl
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
If cel.Value = Sheets("Feuil1").Range("A3").Value Then 'si la valeur de la cellule cel est égale à la valeur de la cellule A3
nb = nb + 1 'définit le nombre nb
v = (cel.Offset(0, 5).Value - cel.Offset(0, 4)) * 24 / cel.Offset(0, 9).Value 'définit la valeur v
t = t + v 'définit le total t
End If 'fin de la condition
Next cel 'prochaine cellule de la boucle
MsgBox t / nb 'affiche la moyenne dans un message (on pourait placer la moyenne "t/nb" n'importe où ailleurs)
End Sub