Execution macro

Bonjour,

J'aimerais obtenir de l'aide concernant une macro que j'essaie d'executer à partir d'un bouton sur mon formulaire.
J'ai un module que j'appelle à partir d'un bouton qui est sur mon formulaire ! lorsque j'exécute ma macro en la selectionnant tout fonctionne correctement. Par contre lorsue je la lance à partir de mon bouton, le code n'est pas parcouru entièrement.

Je vous en poste un bout :
Voici ma macro d'appel de procédure normale

Public Sub Synthèse_des_reports_Click()
Call Get_Portfolio
End Sub

Voici le début de mon code :

Public Sub Get_Portfolio()

Dim MySheet, File_Dir, file_path, Repertoire, date_criteria, Main_dir, cellule, ma_valeur, ma_valeuro, temp
Dim idee, mon_port As Variant
Dim DATE_DEB, DATE_FIN As String
Dim appExcel As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim wbExcel As Excel.Workbook
Dim frm As Form

DATE_DEB = InputBox("Date de début de période , format : yyyymmdd", vbOKCancel)
If DATE_DEB = vbCancel Or Not IsNumeric(DATE_DEB) Then
MsgBox ("Entrer un format correct de date")
Exit Sub
End If

DATE_FIN = InputBox("Date de fin de période , format : yyyymmdd", vbOKCancel)
If DATE_FIN = vbCancel Or Not IsNumeric(DATE_FIN) Then
MsgBox ("Entrer un format correct de date")
Exit Sub
End If

Arrivé ici, lorsque je click sur mon bouton, il me redemande plusieurs fois ma date.