Execution macro sur differentes feuilles

Sub Bouton2_Clic()
    Call CopierSansFormule(NomDeLaFeuille)
    'où NomDeLaFeuille est le nom de la feuille sur laquelle lancer la macro
End Sub

Sub [COLOR=red]CopierSansFormule[/COLOR](ByVal NomFeuille as string)
 
'POUR COPIER CELLULE SANS FORMULE
'feuil2
 
Sheets(NomFeuille ).Activate
Range("a7:b36").Select
    Selection.Copy
    Range("D7:E36").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 
 
'POUR CACHER TES CELLULES
Range("e7:e36").Select
For Each o In Selection
If o.Value <= Cells(1, 8) Then
o.EntireRow.Hidden = True
End If
Next
 
'POUR REVOIR TES CELLULES
Range("e7:e36").Select
For Each o In Selection
If o.Value > Cells(1, 8) Then
o.EntireRow.Hidden = False
End If
Next
 
'TRIER ORDRE DECROISSANT
'I04
Range("d6:e36").Select
Range("e6").Activate
    Selection.Sort Key1:=Range("e6"), Order1:=xlDescending, Key2:=Range("d6") _
        , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
 
End Sub

Sub Bouton2_Clic()
    Call CopierSansFormule([COLOR=red]NomDeLaFeuille[/COLOR])
    'où NomDeLaFeuille est le nom de la feuille sur laquelle lancer la macro
End Sub

Sub Bouton2_Clic()
    Dim sh As WorkSheet
    For each Sh In WorkSheets
      If sh.Name<>"[COLOR=red]nomdelapremièrefeuillequ'ilnefautpastraiter[/COLOR]" then
           Call CopierSansFormule(sh.Name)
      End IF
    Next
   End Sub