Exécuter un macro dans un userform par simple click sur bouton

Bonjour,
J'ai créé un userform avec bouton et je veux éxecuter un macro en cliquant sur le bouton. je n'ai pas le résultat escompté . Pourtant quand j'éxécute la macro sur VBA sans bouton cela marche. La macro fait appel à une fonction dans R car j'ai fait un lien entre <excel et R via BERT.
Merci de votre aide.
Voici les codes de ma macro

Sub Importation()

Application.EnableEvents = False
TABdonnees1 = Application.Run("R.importer_gc", german_credit)

Worksheets("IMPORTERGC").Activate
With Worksheets("IMPORTERGC")
.Range("B4:W1004") = TABdonnees1
End With
Application.EnableEvents = True
En Sub