Problème d'assignation macro userform à bouton

Bonjour à tous,

Je cherche à assigner à un bouton que j'ai dans un onglet excel une macro permettant d'afficher un userform.

Le problème est que lorsque je fais clic droit, assigner à une macro, celle-ci n'apparaît pas...

Voici le code de ma macro (code non exhaustif car plutôt long) :

Option Explicit

Sub ShowMe()
 frmFilter.Show
 End Sub

Sub Filterme()
'
' Filterme Macro
'

'
    Sheets("Data").Range("A1:Q9358").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("Filtres!Criteria"), CopyToRange:=Range( _
        "Filtres!Extract"), Unique:=False
End Sub
Sub Clearme()
'
' Clearme Macro
'

'
    ActiveWindow.SmallScroll Down:=-3
    Range("B8").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Selection.ClearContents
    ActiveWindow.ScrollColumn = 1
    Range("B5:F5").Select
    Selection.ClearContents
End Sub

Sub EffacerLesValeursDeMonUserForm()
 'clear the values form the userform
 With Me
 .CBoxsociete.Value = ""
 .Txtfournisseur.Value = ""
 .TextBox2.Value = ""
 .TextBox1.Value = ""
 .TextBox3.Value = ""

 End With

End Sub

Je me tire les cheveux à comprendre les raisons qui font qu'elle n'apparaît pas...

Je remercie par avance celles et ceux qui prendront de leur temps pour m'aider là dessus...

arochab

Bonsoir,