Private Sub CommandButton2_Click()
Dim ligne, colonne As Integer
Call Module1.Macro1
For Each OB In Me.Controls 'désactive tous les controls qui sont des OptionButton
If OB.Name Like "*OptionButton*" Then
OB.Value = False
End If
If OB.Name Like "*TextBox*" Then 'vide tous les controls textBox
OB.Value = ""
End If
Next
'OptionButton1.Value = False
'OptionButton2.Value = False
'OptionButton3.Value = False
'OptionButton4.Value = False
'OptionButton5.Value = False
'OptionButton6.Value = False
'TextBox2.Text = ""
'TextBox3.Text = ""
'TextBox4.Text = ""
'TextBox5.Text = ""
'TextBox6.Text = ""
'TextBox7.Text = ""
'TextBox8.Text = ""
'TextBox9.Text = ""
'TextBox10.Text = ""
'TextBox11.Text = ""
'TextBox12.Text = ""
'TextBox13.Text = ""
'réinit des 3 booleans
ChoixPoste = False
ChoixEquipe = False
ChoixRotation = False
'Appel du code pour afficher ou pas les boutons (ca manquait)
afficheBoutton
End Sub