Creation boucle

bonjour à tous
j'ai créé epar le mode d'enregistrement la macro ci-dessous qui en résumé recopie 1 format puis des formules cahées en ligne 2 et les recopient de la ligne 9 à la ligne 3333
mon probleme est double:
cette macro est longue ( +/- 1 minute ) et au départ je ne sais pas combien de lignes j'ai réellement besoin ( mini 200 à ????? )
je pense que cette macro dévrait etre incule dans une boucle mais je ne sais si je dois partir avec While ou Do Loop ?
Je peux teste la Colonne E pour savoir la derniere ligne vide mais rajouter 5 lignes supplémentaires de formules pour avoir un peu de reserves de lignes sans relancer la macro
ci dessous la macro en question

'
' Macro jcr le 18/12/12
Sheets("Matrice").Select
Rows("1:3").Select
Selection.EntireRow.Hidden = False
Rows("2:2").Select
Selection.Copy
Rows("9:3333").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("T2").Select
Range("A9:A12").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("A9:A3333"), Type:=xlFillDefault
Range("A9:A3333").Select
Range("P2:Q2").Select
Selection.Copy
Range("P9:Q3333").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("P9:Q3333,T1,V1:W1").Select
Range("V2").Activate
Application.CutCopyMode = False
Range("T2").Select
Selection.Copy
Range("T9:T3333").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("V2:x2").Select
Application.CutCopyMode = False
Selection.Copy
Range("V9:x3333").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("aa2").Select
Application.CutCopyMode = False
Selection.Copy
Range("aa9:aa3333").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("Af2:Ag2").Select
Application.CutCopyMode = False
Selection.Copy
Range("Af9:Ag48").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("Ak2:Aq2").Select
Application.CutCopyMode = False
Selection.Copy
Range("Ak9:Aq3333").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("As2:ba2").Select
Application.CutCopyMode = False
Selection.Copy
Range("As9:ba3333").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("be2").Select
Application.CutCopyMode = False
Selection.Copy
Range("be9:be3333").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("bg2:bi2").Select
Application.CutCopyMode = False
Selection.Copy
Range("bg9:bi3333").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("Bk2").Select
Application.CutCopyMode = False
Selection.Copy
Range("Bk9:Bk3333").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("Bm2:bo2").Select
Application.CutCopyMode = False
Selection.Copy
Range("Bm9:Bo3333").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("Br2:cf2").Select
Application.CutCopyMode = False
Selection.Copy
Range("Br9:cf3333").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Rows("2:2").Select

Selection.EntireRow.Hidden = True

Range("B45").Select

End Sub

merci à tous pour votre aide
salutations

m