Lien entre modules

Bonjour tout le monde,

un petit problème me bloque ,est ce que c'est possible de m'aider

voilà le code:

Option Compare Text

Private Sub Workbook_Open()
Dim opération As String
opération = InputBox("opération", "Titre")
If opération = "achat" Then
UserForm1.Show
End If
End Sub

Private Sub CommandButton1_Click()
appel
End Sub

Sub appel()
If OptionButton1.Value = True Then
Worksheets(1).Cells(6, 4).AutoFilter Field:=1, Criteria1:="BDT"
End If
End Sub

ce que j'essaie de faire: quand j'ouvre une feuille excel y a un inputBox qui apparaît si j'y écrit achat et que je valide y a un userform qui apparait . Je coche la case voulue et là il met un filtre dans la colonne D
mon problème c'est que je n'arrive po à mettre en place le lien pour quand j'appuie sur le ok du userform le code s'exécute

merci de bien vouloir m'aider :D