exécuter code par boite de dialogue

Bonjour à tous !

J'ai crée une boite de dialogue avec les boutons 'Annuler' et 'Comparer'.
Pour annuler, je sais quel code écrire, mais pour OK, je ne sais pas quel est le code pour exécuter une macro.

J'ai mis :

Private Sub BtnComparer_Click()
Application.Run ("Comparer_Tables()")
End Sub

mais çà ne marche pas !

Merci pour votre aide.

Ber Nar.