Re, merci beaucoup pour votre aide !
Il y a une erreur d'execution 13 si la 1ère moyenne est en 4 et 6
'Range("O1") = "ccc"
Sheets("Feuil2").Range("B3") = "ccc"
For n = LBound(tablo, 1) To UBound(tablo, 1)
If tablo(n, 8) = 2 And tablo(n, 14) > 1 Then
tot = tot + tablo(n...