MACRO VBA EXCEL

Bonjour,comment ecrire cette macro en evitant de repeter les memes instructions pour les lignes selectionnees "c13:cg13" puis "c14:cg14" et "c15:cg15" ?

sub macro
Sheets("1er Tri").Select
Range("C13:CG13").Select
Selection.Copy
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Bultins").Select
Range("C4:I71").Select
Application.CutCopyMode = False
ActiveSheet.PageSetup.PrintArea = "$C$4:$I$71"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("1er Tri").Select
Range("C14:CG14").Select
Selection.Copy
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Bultins").Select
Range("C4:I71").Select
Application.CutCopyMode = False
ActiveSheet.PageSetup.PrintArea = "$C$4:$I$71"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("1er Tri").Select
Range("C15:CG15").Select
Selection.Copy
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Bultins").Select
Range("C4:I71").Select
Application.CutCopyMode = False
ActiveSheet.PageSetup.PrintArea = "$C$4:$I$71"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"


End Sub