Bonjour à tous et un grand merci pour votre aide......leblairea 65ans

Voilà, j'ai fait ce code, lorsque je clique sur oui, pas de problème.......mais lorsque je clique sur non, je passe en mode débogage (erreur d'exécution 1004) ,je pense qu'il me manque quelque chose dans les instructions?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub btrSourceAjout_Click()
Dim derligne As Integer
If MsgBox("Confirmez-vous l'ajout de cette opération bancaire?", vbYesNo, "confirmation") = vbYes Then derligne = Sheets("CCP").Range("A33832").End(xlUp).Row + 1
Cells(derligne, 1) = ComboBox1.Value      'Nuémro
Cells(derligne, 2) = ComboBox2.Value      'Ventilé
Cells(derligne, 3) = DTPicker1.Value      'Date
Cells(derligne, 4) = cboTiers.Value       'Tiers
Cells(derligne, 6) = TxtMontant.Value     'Montant
Cells(derligne, 6) = CDbl(TxtMontant.Value) 'Didider Convertir en nombre'
Cells(derligne, 7) = cboCategorie.Value   'Catégorie
Cells(derligne, 8) = cboSousCategorie.Value    'Sous catégorie
Cells(derligne, 9) = TxtNotes.Value            'Notes
End Sub