XL 2010 MACRO - Gestion des erreurs

Private Sub CommandButton1_Click()
 
 
  Dim Ctrl As Control
  Dim k As Integer
  Dim j As Integer
 
For Each Ctrl In Frame1.Controls
 
   If TypeOf Ctrl Is msforms.OptionButton Then
 
       If Ctrl.Value = True Then
             F1D = True
             Exit For
             End If
       End If
   Next Ctrl
 
If F1D = False Then
MsgBox "Attention! Il faut sélectionner un statut de classification"
Exit Sub
 
Else
 
'Déclanchement procédure
k = Application.Match(ComboBox1.Value, Feuil1.Range("A1:A100"), 0)
j = Application.Match(Ctrl.Object.Caption, Feuil1.Range("A1:H1"), 0)
 
Feuil1.Cells(k, j).Value = Format(DTPicker1.Value, "mm/dd/yyyy")
With Feuil1.Cells(k, j).Font
    .Bold = True
    .Italic = False
    .Color = 3
    .Size = 11
    .Name = "Calibri"
End With
 
End If
              
Unload Me
 
End Sub

Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim k As Integer
Dim j As Integer
Dim test As Boolean
For Each Ctrl In Frame1.Controls
If Ctrl.Value = True Then
    test = True
    Exit For
End If
If test = False Then
    MsgBox "blablabla"
    Me.Frame1.OptionButton1.SetFocus
    Exit Sub
Next Ctrl
k = Application.Match(ComboBox1.Value, Feuil1.Range("A1:A100"), 0)
j = Application.Match(Ctrl.Object.Caption, Feuil1.Range("A1:H1"), 0)
Sheets("Suivi").Cells(k, j).Value = Format(DTPicker1.Value, "dd/mm/yyyy")
Sheets("Suivi").Cells(k, j).Font.Bold = True
Unload Me
End Sub