Erreur d'exécution 13

[bluet]

Bonjour à tous,

je suis en train de faire un programme à partir duquel l'utilisateur remplit un certain nombre de données à partir d'une multitude d'userform. Forcément, il y a un module à côté pour recenser les données et les ranger dans la spreadsheet. j'ai créé un bouton dans ma spreadsheet pour lancer la procédure mais dès que j'essaye de lancer j'ai la fameuse Erreur d'exécution 13...qui se modélise à ce moment :

Ce lien n'existe plus


Je ne suis qu'un modeste utilisateur de vba (c'est vraiment histoire de faciliter certaines tâches quotidiennes) donc loin de moi le fait d'être un expert. Si vous pouviez m'aider, ce serait génial. Voici le code, si vos yeux plus experts voient qqchose (toutes mes variables sont déclarées comme variables publiques) :

Sub usecase()

'type de cas
If UserFormCas.BoutonBlanchiment = True Then
cas = "Blanchiment de capitaux"
Else
cas = "Financement du terrorisme"
End If

'source
If UserFormSource.BoutonCRF = True Then
source = "CRF"
ElseIf UserFormSource.BoutonPresse = True Then
source = "Presse"
Else
source = "Autre"
End If

'dates
ddeb = UserFormDates.TextBoxDDB
ddec = UserFormDates.TextBoxDDC

'acteurs économiques
acteurec = UserFormActeur.ComboBox.Text

'données relatives au montant
ligne = UserFormLigne.ComboBox1.Text
montant = UserFormMontant.ComboBox1.Text

'granularité
If UserFormMontant.OptionButtonUneFois = True Then
granularite = "En une fois"
ElseIf UserFormMontant.OptionButtonPlusieurs = True Then
granularite = "Plusieurs versements"
Else
granularite = "Information inconnue"
End If

'forme de l'argent
If UserFormForme.OptionButtonScripturale = True Then
forme = "Scripturale"
ElseIf UserFormForme.OptionButtonFiduciaire = True Then
forme = "Fiduciaire"
Else
forme = "Electronique"
End If

'risque pays
zone = UserFormRisquePays.ComboBox1.Text
pays = UserFormRisquePays.ComboBox2.Text

'risque pays
If UserFormRisquePays.entcoui = True Then
entc = "Oui"
Else
entc = "Non"
End If

If UserFormRisquePays.noireoui = True Then
lnoire = "Oui"
Else
lnoire = "Non"
End If

'nom du secteur
secteur = UserFormSecteur.ComboBox1.Text
'sensibilité du secteur
If UserFormSecteur.ComboBox1 = Sheets("secteur").Range("A4") Or Sheets("secteur").Range("A8") Or Sheets("secteur").Range("A18") Or Sheets("secteur").Range("A17") Or Sheets("secteur").Range("A12") Or Sheets("secteur").Range("A9") Then
sensible = "Oui"
Else
sensible = "Non"
End If

'personne morale ou physique
If UserFormPersonne.OptionButtonPhysique = True Then
personne = "Personne Physique"
Else
personne = "Personne Morale"
End If

'type de personne morale
If UserFormPM.OptionButtonA = True Then
pm = "Association"
ElseIf UserFormPM.OptionButtonS = True Then
pm = "Société"
ElseIf UserFormPM.OptionButtonT = True Then
pm = "Trust"
Else
pm = "-"
End If

'type de personne physique
If UserFormPP.OptionButtonP = True Then
PPE = "Particulier"
ElseIf UserFormPP.OptionButtonBP = True Then
PPE = "Client banque privée"
ElseIf UserFormPP.OptionButtonPPE = True Then
PPE = "Personne politiquement exposée"
Else
PPE = "-"
End If

If UserFormCom.TextBoxCom = "" Then
com = "-"
Else
com = UserFormCom.TextBoxCom
End If

'saisie des éléments dans la spreasheet
'détermination du pas et boucle
l = 2
Do Until Sheets("Case").Cells(l, 1) = ""
l = l + 1
Loop

'remplissage des cellules de la spreadsheet
Cells(l, 2) = cas
Cells(l, 3) = source
Cells(l, 4) = ddeb
Cells(l, 5) = ddec
Cells(1, 6) = acteurec
Cells(l, 7) = ligne
Cells(l, 8) = montant
Cells(l, 9) = granularite
Cells(l, 10) = forme
Cells(l, 11) = zone
Cells(l, 12) = pays
Cells(l, 13) = entc
Cells(l, 14) = lnoire
Cells(l, 15) = secteur
Cells(l, 16) = sensible
Cells(l, 17) = personne
Cells(l, 18) = pm
Cells(l, 19) = PPE
Cells(l, 20) = compte
Cells(l, 21) = com

End Sub

 

[bluet]

c'est bon tout fonctionne, je suis parvenu à trouver. pardon pour le dérangement !