répéter macro sur différente lignes

Bonjour à tous,

je suis totalement novice sur ce sujet. J'ai bien vu qu'il existait d'autres sujets sur le forum abordant le même problème que moi mais je ne vois pas comment utiliser les réponses déjà données.

voici mon problème:

je cherche à copier automatiquement une mise en forme des lignes d'un premier tableau pour la recopier sur les lignes du deuxième tableau en dessous.

pour l'instant, j'en suis la...

Sub macrosub()

Range("A16:C17").Select
Selection.Copy
Range("A152:C153").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Range("A18:C19").Select
Selection.Copy
Range("A154:C155").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False


.
.
.
.
.

Range("A132:C133").Select
Selection.Copy
Range("A268:C269").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False


End Sub



vous l'aurai compris, au vu du nombre de lignes, c'est long et fastidieux de procéder ainsi...

y'a - t- il un moyen de la répéter ??

merci d'avance