Procédure trop grande

Bonjour,

Novice en Excel, je souhaite remplir des tableaux par rapport à des options cocher ou non? J'ai donc fait moulte boucle cependant je ne peux pas exécuter mon code celui ci étant apparemment trop grand

comment puis je réduire mon code svp ?

Voici un exemple :

Private Sub CommandButton1_Click()

If Championnat.ListeJoueurs = "" Or Championnat.ListeJournee = "" Then

MsgBox "Veuillez remplir tous les champs svp !"

Else

j = Championnat.ListeJoueurs.ListIndex

Jnom = Championnat.ListeJoueurs.Value

Jo = Championnat.ListeJournee.ListIndex

Dim WS_Count As Integer

Dim i As Integer

WS_Count = ActiveWorkbook.Worksheets.Count

'On parcours les onglets

For i = 1 To WS_Count

'Si le nom du joueur = nom de l'onglet

If Sheets(i).Name = Jnom Then

If Jo = 0 Then

Journee.LabelJournee.Caption = "Championnat Ligue 1 - " & Sheets("Résultats Journées").Cells(1, 1).Value

Journee.Eq1.Caption = Sheets("Résultats Journées").Cells(5, 1).Value

Journee.Eq2.Caption = Sheets("Résultats Journées").Cells(5, 5).Value

Journee.Eq3.Caption = Sheets("Résultats Journées").Cells(6, 1).Value

Journee.Eq4.Caption = Sheets("Résultats Journées").Cells(6, 5).Value

Journee.Eq5.Caption = Sheets("Résultats Journées").Cells(7, 1).Value

Journee.Eq6.Caption = Sheets("Résultats Journées").Cells(7, 5).Value

Journee.Eq7.Caption = Sheets("Résultats Journées").Cells(8, 1).Value

Journee.Eq8.Caption = Sheets("Résultats Journées").Cells(8, 5).Value

Journee.Eq9.Caption = Sheets("Résultats Journées").Cells(9, 1).Value

Journee.Eq10.Caption = Sheets("Résultats Journées").Cells(9, 5).Value

Journee.Eq11.Caption = Sheets("Résultats Journées").Cells(10, 1).Value

Journee.Eq12.Caption = Sheets("Résultats Journées").Cells(10, 5).Value

Journee.Eq13.Caption = Sheets("Résultats Journées").Cells(11, 1).Value

Journee.Eq14.Caption = Sheets("Résultats Journées").Cells(11, 5).Value

Journee.Eq15.Caption = Sheets("Résultats Journées").Cells(12, 1).Value

Journee.Eq16.Caption = Sheets("Résultats Journées").Cells(12, 5).Value

Journee.Eq17.Caption = Sheets("Résultats Journées").Cells(13, 1).Value

Journee.Eq18.Caption = Sheets("Résultats Journées").Cells(13, 5).Value

Journee.Eq19.Caption = Sheets("Résultats Journées").Cells(14, 1).Value

Journee.Eq20.Caption = Sheets("Résultats Journées").Cells(14, 5).Value

Journee.Show

End If

End If

Next i

End If

Il y en a jusqu'a Jo=37

Merci de votre aide

Sophie

Bonjour et bienvenu(e)

A tester

Ok super merci

Et vous croyez que je peux poursuivre mon code pour "BoutonValidJournee_Click()" ? il va pas me mettre le même message?

Bonjour

Simplification de cette partie aussi ( à tester)

Ok super ! merci beaucoup