Private Sub CommandButton111_Click()
Dim i As Byte, J As Byte
If TextBox109 = vbNullString Or TextBox104 = vbNullString Or Famille100 = vbNullString Or SousFamille100 = vbNullString Then
MsgBox ("Les champs marqués d'un astérisque (*) sont obligatoires.")
Famille100.SetFocus
Exit Sub
End If
Application.ScreenUpdating = False
With Sheets(Var_Famille100).Select
ligne = Range("B65536").End(xlUp).Offset(1, 0).Row
Cells(ligne, 2).Value = CDate(Date)
For i = 3 To 6
Cells(ligne, i).Value = Controls("TextBox" & 100 + i).Value
Next i
Cells(ligne, 7).Value = SousFamille100.Value
For i = 8 To 11
Cells(ligne, i).Value = Controls("TextBox" & 100 + i).Value
Next i
Famille100.Value = ""
SousFamille100.Value = ""
For i = 3 To 6
Controls("TextBox" & 100 + i).Value = ""
Next i
For i = 8 To 11
Controls("TextBox" & 100 + i).Value = ""
Next i
CheckBox100.Value = False
End With
Application.ScreenUpdating = True
Sheets("Tableau de bord").Activate
End Sub