appliquer une macro thisWorkbook a un bouton

Re : appliquer une macro thisWorkbook a un bouton

re Bonjour

j 'ai avancer sur mon code

Pour filtré la colonne J plutôt que la A j 'ai trouvé

Mais j 'arrive pas a faire que le code ce déclenche au clic sur le bouton et non pas a la sélection de l' onglet

voici le code complet:
Private Sub CommandButton1_Click()
Dim a, h&
a = Array("Recapitulatif", "Donnée") 'feuilles a exclure
If IsNumeric(Application.Match(Sh.Name, a, 0)) Then Exit Sub <= il me semble que le problème est la!
Application.ScreenUpdating = False
Sh.AutoFilterMode = False 'désactive le filtre
Sh.Rows("16:" & Rows.Count).Delete 'RAZ
Sheets("Recapitulatif").Visible = True
Sheets("Recapitulatif").Copy 'nouveau document
ActiveSheet.AutoFilterMode = False 'désactive le filtre
h = Range("A" & Rows.Count).End(xlUp).Row - 5
If h > 0 Then
With [15:15].Resize(h)
.AutoFilter 10, Sh.Name 'filtre automatique- 1=colonne A / 10 =colonne J
.Offset(1).SpecialCells(xlCellTypeVisible).Copy Sh.[A16]
End With
End If
ActiveWorkbook.Close False 'ferme le document
End Sub