XL 2013 Macro pour Enregistrer 2 feuilles Excel dans un meme classeur

Bonjour,

j'ai un code qui fonctionne très bien. (ci dessous)
Elle masque des lignes sur 2 feuilles, enregistre les 2 feuilles en pdf dans le même dossier que le fichier excel, et ré-affiche les lignes masquées.

J'aimerai la même chose, mais en enregistrant en fichier excel sans les lignes masquées (donc supprimées) et sans les boutons que j'ai mis pour les macros.

(PS : les feuilles ont des formules, si je l'envoi par la suite par mail, le nouveau fichier gardera les données ?)

Ma macro actuelle :

Sub TEST()

Sheets("SUIVI 1").Select
Rows("7:16").Select
Range("B7").Activate
Selection.EntireRow.Hidden = True
Rows("22:31").Select
Range("B22").Activate
Selection.EntireRow.Hidden = True
Rows("37:41").Select
Selection.EntireRow.Hidden = True
Sheets("SUIVI 2").Select
Rows("7:16").Select
Range("B7").Activate
Selection.EntireRow.Hidden = True
Rows("22:31").Select
Range("B22").Activate
Selection.EntireRow.Hidden = True
Rows("37:41").Select
Selection.EntireRow.Hidden = True
Range("A43").Select
Sheets(Array("SUIVI 1", "SUIVI 2")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & Range("A5") & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False 'True
Sheets("SUIVI 1").Select
Rows("1:50").Select
Selection.EntireRow.Hidden = False
Sheets("SUIVI 2").Select
Rows("1:50").Select
Selection.EntireRow.Hidden = False
Sheets("SUIVI 1").Select

End Sub

Merci pour votre aide.