Private Sub Cmdvalider_Click()
Dim Equipe As Variant
Equipe = Choose(Abs((OptionButton1 * 1) + (OptionButton2 * 2) + (OptionButton3 * 3)), "matin", "soir", "nuit")
With Sheets("Etat")
Nl = .Range("A65536").End(xlUp).Row + 1 'Dans quelle ligne je vais écrire
If Not IsNull(Equipe) Then .Range("b" & Nl).Value = Equipe