Ordre macro

Bonjour tous le monde,

j'ai un soucis d'ordre de macro.

Voici mon code

Private Sub TraiterCheckBox()
  If Me.CheckBox1 = True Then
    Sheets("Devis").CheckBox1 = True
  Else
    Sheets("Devis").CheckBox1 = False
  End If

  If Me.CheckBox2 = True Then
    Sheets("Devis").CheckBox2 = True
  Else
    Sheets("Devis").CheckBox2 = False
  End If

  If Me.CheckBox3 = True Then
    Sheets("Devis").CheckBox3 = True
  Else
    Sheets("Devis").CheckBox3 = False
  End If

  If Me.CheckBox4 = True Then
    Sheets("Devis").CheckBox4 = True
  Else
    Sheets("Devis").CheckBox4 = False
  End If

  If Me.CheckBox5 = True Then
    Sheets("Devis").CheckBox5 = True
  Else
    Sheets("Devis").CheckBox5 = False
  End If

  If Me.CheckBox6 = True Then
    Sheets("Devis").CheckBox6 = True
  Else
    Sheets("Devis").CheckBox6 = False
  End If
  CmdButtonAnnuler_Click
End Sub

Private Sub CmdButtonAnnuler_Click()
  End
End Sub

Private Sub CmdButtonGenererDevis_Click()

With Sheets("Devis")
  .[K6] = Me.TextBox1
  .[K7] = Me.TextBox2
  .[K8] = Me.ComboBoxClients
  .[C20] = Me.ComboBoxTypeProtection.Value  ' à revoir
  .[L15] = Me.TextBox13                ' remplacer XXXX par l'adresse où écrire dans la feuille DEVIS
  .[M10] = Val(TextBox3)
  .[L16] = Val(TextBox12)
  .[l17] = Val(TextBox14)
  .[l18] = Val(TextBox9)
  .[l19] = Val(TextBox10)
  .[J23] = Me.TextBox4
  .[J25] = Me.TextBox5
  .[M21] = Val(TextBox11)
  .[L12] = Val(TextBox15)

  TraiterCheckBox

  goenregistredevisalarme

End With

End Sub

il ne m'ouvre pas le formulaire "goenregistredevisalarme.

Par contre si je le place comme ci-dessous, il m'ouvre le formulaire mais ne traite pas les checkbox.

Private Sub CmdButtonGenererDevis_Click()

With Sheets("Devis")
  .[K6] = Me.TextBox1
  .[K7] = Me.TextBox2
  .[K8] = Me.ComboBoxClients
  .[C20] = Me.ComboBoxTypeProtection.Value
  .[L15] = Me.TextBox13
  .[M10] = Val(TextBox3)
  .[L16] = Val(TextBox12)
  .[l17] = Val(TextBox14)
  .[l18] = Val(TextBox9)
  .[l19] = Val(TextBox10)
  .[J23] = Me.TextBox4
  .[J25] = Me.TextBox5
  .[M21] = Val(TextBox11)
  .[L12] = Val(TextBox15)

  goenregistredevisalarme

End With

TraiterCheckBox
End Sub

Une idée svp?

Bonjour,

Peut-être

goenregistredevisalarme.show

C'st bon j'ai trouvé l'intrus

c'est le "CmdButtonAnnuler_Click"

dans le traitercheckbox