Private Sub CommandButton2_Click()
Dim ligne, colonne As Integer
Call Module1.Macro1
For Each OB In Me.Controls
If OB.Name Like "*OptionButton*" And OB.Name <> "OptionButton11" And OB.Name <> "OptionButton12" Then
OB.Value = False
End If
If OB.Name Like "*TextBox*" And OB.Name <> "TextBox1" Then
OB.Value = ""
End If
Next OB
ChoixPoste = False
'ChoixEquipe = False
ChoixRotation = False
afficheBoutton
End Sub