Ajouter déverrouillage de toutes les feuilles en début de macro

Bonjour,
Je souhaite ajouter un déverrouillage par box de toutes les feuilles de mon fichier au début de ma macro que j'ai créée avec "enregistrer une macro" mais je ne sait pas où la placer ni le code à appliquer
Ajouter aussi si possible un verrouillage par box à la fin
Cette macro que voici lisse des formules sur plusieurs feuilles:
Sub LissageFormules()
'
' LissageFormules Macro
'

'
Sheets("Fact Fam").Select
Rows("3:3").Select
Selection.AutoFill Destination:=Rows("3:303"), Type:=xlFillDefault
Rows("3:303").Select
Rows("304:330").Select
Selection.Delete Shift:=xlUp
Range("F342").Select
Sheets("Cde Fam").Select
Range("A3:F3").Select
Selection.AutoFill Destination:=Range("A3:F303"), Type:=xlFillDefault
Range("A3:F303").Select
Rows("304:330").Select
Selection.Delete Shift:=xlUp
Range("A312").Select
ActiveWindow.SmallScroll Down:=-12
Sheets("Fact Pompiers").Select
Rows("3:3").Select
Selection.AutoFill Destination:=Rows("3:303"), Type:=xlFillDefault
Rows("3:303").Select
Rows("304:330").Select
Selection.Delete Shift:=xlUp
Range("B314").Select
Sheets("Cde Pompiers").Select
Range("A3:F3").Select
Selection.AutoFill Destination:=Range("A3:F303"), Type:=xlFillDefault
Range("A3:F303").Select
Rows("304:330").Select
Selection.Delete Shift:=xlUp
Range("B324").Select
Sheets("Cde Fournisseur").Select
Range("J3:Z3").Select
Selection.AutoFill Destination:=Range("J3:Z303"), Type:=xlFillDefault
Range("J3:Z303").Select
Rows("304:330").Select
Selection.Delete Shift:=xlUp
ActiveWindow.SmallScroll Down:=-159
End Sub

Merci d'avance