2 macro pour 1 bouton

Bonjour,

Donc, je suis un gros débutant pour le VBA, je dirais même que je ne connais rien du-tout. Mais ma patronne ma demander de réaliser des fiches d'intervention.

J'ai entendue parler des Macro et je me suis lancé dedans. Mon objectif était de créer un fiche d'intervention et avec 1 seul bouton imprimé la fiche d'intervention et supprimer les donnée des cellules grisé et encadré ( photo ci-joint)

J'ai jamais fais tout sa je me renseigne à droite à gauche mais je ne comprend pas comment faire.

j'ai donc fait deux bouton : 1 pour supprimer

Sub Suppression()
'
' suppression Macro
'
' Touche de raccourci du clavier: Ctrl+s
'
ActiveWindow.SmallScroll Down:=-24
Range("K12,C4,G4,G5,F5,E8:E9,E11:E12,G11:G12,C12,C16:C19,E16,G16").Select
Range("G16").Activate
ActiveWindow.SmallScroll Down:=15
Range( _
"K12,C4,G4,G5,F5,E8:E9,E11:E12,G11:G12,C12,C16:C19,E16,G16,C22:G25,C28:G29,C31:G33,F37,C37:C40" _
).Select
Range("C37").Activate
ActiveWindow.SmallScroll Down:=15
Range( _
"K12,C4,G4,G5,F5,E8:E9,E11:E12,G11:G12,C12,C16:C19,E16,G16,C22:G25,C28:G29,C31:G33,F37,C37:C40,B45:G50" _
).Select
Range("B45").Activate
ActiveWindow.SmallScroll Down:=-6
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-12
End Sub

ET UN POUR IMPRIME

Sub Imprim()
'
' Imprim Macro
'

'
ActiveWindow.SmallScroll Down:=-66
Range("A1:H60").Select
ActiveWindow.SelectedSheets.PrintPreview
Application.ActivePrinter = "Brother MFC-9120CN Printer Bureau sur Ne06:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,FALSE,,,,,,2,""Brother MFC-9120CN Printer Bureau sur Ne06:"",,TRUE,,FALSE)"
End Sub


J'ai fait avec les moyens du bord ! :)

J'aurai aimez savoir si il était possible de regrouper ces deux macro sur le seul et même bouton.

J'espère ne pas avoir été trop fouillis désoler dans ce cas,
en espérant que quelqu'un est une solution.

Merci d'avance!!;)