Sub Macro1()
Dim O As Object 'déclare la variable O (Onglets)
Dim C(1 To 3) As Byte 'déclare le tableau de 3 variables C (Compteurs)
Dim I As Byte 'déclare la variable I (Incrément)
For Each O In Sheets(Array("U", "V", "W", "X", "Y", "Z")) 'boucle sur tous les onglets de la liste
Select Case CByte(O.Range("B2").Value) 'agit en fonction de la valeur de la cellule B2 de l'onglet
Case 32 To 36 'cas de 32 à 36
C(1) = C(1) + 1 'incrémente le compteur C(1)
Case 37 To 41 'cas de 37 à 41
C(2) = C(2) + 1 'incrémente le compteur C(2)
Case 42 To 47 'cas de 42 à 47
C(3) = C(3) + 1 'incrémente le compteur C(3)
End Select 'fin de l'action en fonction de ...
Next O 'prochain onglet de la boucle
For I = 1 To 3 'boucle sur les trois compteurs
Sheets("Bilan").Cells(4, 2 + I).Value = C(I) 'place le total du compteur dans la cellule correspondante
Next I 'prochain compteur de la boucle
End Sub