Sub Moyenne()
annee = InputBox("Quelle année (AAAA)? ", "Moyenne annuelle")
moy = Format(Application.WorksheetFunction.SumIf(Columns(1), annee, Columns(2)) / Application.WorksheetFunction.CountIf(Columns(1), annee), "0.00")
MsgBox ("La moyenne de l'année " & annee & " est de " & moy & ".")
End Sub