Macro dans toutes feuilles d'un classeur

Bonjour!! besoin d'aide j'ai beau chercher et essayer plein de chose rien ne fonctionne...

J'essaie de faire une macro dans un dossier sur une page modèle (tris et mise en forme gras de certaine ligne). Ca, ca fonctionne bien pas de soucis. Le problème c'est de faire en sorte que le tris et la mise en forme s'exécute dans toute les pages. A noté également que chaque jour, 2 nouvelles feuilles sont copié a partir des 2 feuilles modèles donc il faudrait que la macro puisse prendre en charge même les nouvelles feuilles ajouté. Si possible également (je sais je demande beaucoup ..) d'exclure nos 2 feuilles modèles de la macro car sinon les modèles ce copie avec des lignes en gras et ca mélange complètement la mise en forme de la macro qu'on essaie de faire!)
je vous joint la saisi de la macro qui fonctionne bien mais seulement sur la page modèle (celle sur laquelle elle est enregistré)
Merci beaucoup !!

Sub Trisetgras()
'
' Trisetgras Macro
'

'
Range("A17:D216").Select
ActiveWorkbook.Worksheets("MODELE TPS").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("MODELE TPS").Sort.SortFields.Add Key:=Range( _
"B17:B216"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("MODELE TPS").Sort
.SetRange Range("A17:D216")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=9
Rows("46:46").Select
ActiveWindow.SmallScroll Down:=24
Range("46:46,76:76").Select
Range("A76").Activate
ActiveWindow.SmallScroll Down:=33
Range("46:46,76:76,106:106").Select
Range("A106").Activate
ActiveWindow.SmallScroll Down:=33
Range("46:46,76:76,106:106,136:136").Select
Range("A136").Activate
ActiveWindow.SmallScroll Down:=27
Range("46:46,76:76,106:106,136:136,166:166").Select
Range("A166").Activate
ActiveWindow.SmallScroll Down:=27
Range("46:46,76:76,106:106,136:136,166:166,196:196").Select
Range("A196").Activate
Selection.Font.Bold = True
ActiveWindow.SmallScroll Down:=-168
Range("A17").Select
End Sub