USF et cases à cocher

  If OptionButton3 = True Then .Cells(lg, 6) = Label5.Caption
  
End With
[B][COLOR="Red"]Sub nettoie()[/COLOR][/B]
  Me.Date_Saisie = ""
  Me.TextNom = ""
End Sub

Private Sub UserForm_Initialize()
   Me.Date_Saisie = Date
   dlg = Sheets("INFOS").Range("A65536").End(xlUp).Row  ' Recherche la dernière ligne utilisée de la feuille INFOS
   ComboDep.RowSource = "INFOS!D2:D" & dlg
   With Worksheets("Infos")
        ComboVille.List = .Range("B2:B" & .Range("B65536").End(xlUp).Row).Value
    End With
End Sub

Private Sub UserForm_Initialize()
   Me.Date_Saisie = Date
   With Worksheets("Infos")
        ComboVille.List = .Range("B2:B" & .Range("B65536").End(xlUp).Row).Value
        ComboDep.List = .Range("D2:D" & .Range("D65536").End(xlUp).Row).Value
    End With
End Sub

Private Sub ComboDep_Change()
    Dim Cel As Range, Rng As Range
    If ComboDep.ListIndex = -1 Then Exit Sub
      With Worksheets("Infos")
        Set Rng = .Range("A2:A" & .Range("A65536").End(xlUp).Row)
    End With
    With [B]ComboVille[/B]
      .Clear
        For Each Cel In Rng
      [B] If Cel = ComboDep Then .AddItem [/B]Cel.Offset(0, 1)
       Next Cel
   End With
End Sub

Private Sub CheckBox1_Click()
Dim c As Control
If CheckBox1 Then
    For Each c In Me.Controls
        If TypeName(c) = "CheckBox" Then c.Value = True
    Next c
End If
End Sub

Private Sub CheckBox1_Click()
Dim c As Control
If CheckBox1 Then
    For Each c In Me.Controls
        If TypeName(c) = "CheckBoxGeo" Then c.Value = True
    Next c
End If
End Sub

Private Sub CheckBox1_Click()
Dim c As Control
If CheckBox1 Then
    For Each c In Me.Controls
        If TypeName(c) = "CheckBox" and c.Name Like "CheckBoxGeo*" Then c.Value = True
    Next c
End If
End Sub

 Select Case Sheets("TABLEAU").Cells(ligne, 8)
    Case "En cours"
      Me.OptionButton7 = True
    Case "A faire"
      Me.OptionButton8 = True
    Case "Non concerné"
      Me.OptionButton9 = True
       End Select

Me.CheckBoxGeo1 = Sheets("TABLEAU").Cells(ligne, 25)