XL 2016 Boucle avec optionbutton

Bonjour Le forum
Comme je ne suis pas un expert en vba je vais fait
appelle au pro d'Excel. 🙁

J'essaye de simplifier une action sans résultat de faire une boucle avec des OptionButton.
J'ai 20 optionbutton si une est cocher elle doit additionné +1 sur une
valeur déjà existante selon le choix d'un combobox lors de la validation.

En vous remerciant d'avance pour votre coup de pouce😉



Exemple:
If Val_Creneau_1 = True Then
Sheets("Horaire_Grille").Cells(ComboBox4.ListIndex + 47, 2).Value = Sheets("Horaire_Grille").Cells(ComboBox4.ListIndex + 47, 2).Value + 1
End If
If Val_Creneau_2 = True Then
Sheets("Horaire_Grille").Cells(ComboBox4.ListIndex + 47, 3).Value = Sheets("Horaire_Grille").Cells(ComboBox4.ListIndex + 47, 3).Value + 1
End If
If Val_Creneau_3 = True Then
Sheets("Horaire_Grille").Cells(ComboBox4.ListIndex + 47, 4).Value = Sheets("Horaire_Grille").Cells(ComboBox4.ListIndex + 47, 4).Value + 1
End If
If Val_Creneau_4 = True Then
Sheets("Horaire_Grille").Cells(ComboBox4.ListIndex + 47, 5).Value = Sheets("Horaire_Grille").Cells(ComboBox4.ListIndex + 47, 5).Value + 1
End If
If Val_Creneau_5 = True Then
Sheets("Horaire_Grille").Cells(ComboBox4.ListIndex + 47, 6).Value = Sheets("Horaire_Grille").Cells(ComboBox4.ListIndex + 47, 6).Value + 1
End If
If Val_Creneau_6 = True Then
Sheets("Horaire_Grille").Cells(ComboBox4.ListIndex + 47, 7).Value = Sheets("Horaire_Grille").Cells(ComboBox4.ListIndex + 47, 7).Value + 1
End If

Cdt Poussy