Répétition de macro sur chaque ligne

Bonjour,

Je ne maîtrise pas du tout les macros, et pourtant c'est bien cela qu'il me faut pour résoudre mon problème.

J'ai un fichier avec 16 colonnes et 2111 lignes. Je dois travailler chaque ligne de la façon suivante :

Ligne 1, j'insère 11 lignes en dessous, je copie les cellules F1 à P1, je transpose en E2 et supprime F1 à P1

Voilà la macro qui me permet de faire cette manipulation 1 fois :

Sub Transpo()
'
' Transpo Macro
'
'
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("F1:P1").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("F1:P1").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub

Je voudrais donc appliquer cette macro sur l'ensemble des 2111 lignes.

Et là mes compétences ne me le permettent pas pour le moment.

Merci pour vos réponses.