J'ai essayé, et j'arrive à ça, le problème c'est que ça marché parfaitement pour la première feuille mais pour le reste ça donne un mauvais résultat,
qu'en pensez vous ?
Sub mom1()
Dim i As Integer
Dim k As Byte
Dim moy, som, som1, som2, som3, stde, sk, ku As Single
'je déclare les variables...