Executer une macro sur plusieurs lignes??

Bonjour,

je suis débutant enexel et encore null en macros ( c'est m'a première macro)



J'aimerais creér un macro qui exectute une serie de copier /coller pour plusieur s ligne s
au faite j'ai déja creé une macro à l'aide de l'enregistreur de macro sauf que ça fonctionne q'une seul fois, sur une ligne moi je voudrais qu'une fois elle termine le travail sur la ligne 3 =>> elle passe à la ligne 4 et exectute les memes taches ,
ce que je ve faire c'est :

j'ai un tableau avec des donnée qui sont à l'horizontal
je voudrais les copier/coller à la verticale (transposer) pour ce la

1-je selectionne la plage verte => je la colle dans le deuxième tableau à la verticale (transposé)
2- je selectionne la cellule bleu=> je la tire en bas (pour obtenir la meme cellule )dans le deuxième tableau
3-je selectionne la plage jaune=> je la colle dans le deuxième tableau à la verticale(transposé)
4-je selectionne la cellule rouge=> je la tire en bas (pour obtenir la meme cellule )dans le deuxième tableau
5-je selectionne la cellule orange=> je la tire en bas (pour obtenir la meme cellule )dans le deuxième tableau

voila une prise d'ecran de ce que je veux obtenir

https://www.zupimages.net/


voila le script que j'ai obtenu pour mon premier essai de macro:


Sub ESSAI16H()
'
' ESSAI16H Macro
'

'
Range("F3:K3").Select
Selection.Copy
Range("A17").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A3").Select
Application.CutCopyMode = False
Selection.Copy
Range("B17").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("B17:B22"), Type:=xlFillDefault
Range("B17:B22").Select
Range("F1:K1").Select
Selection.Copy
Range("C17").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Range("B3").Select
Selection.Copy
Range("D17").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("D17:D22"), Type:=xlFillDefault
Range("D17:D22").Select
Range("C3").Select
Selection.Copy
Range("E17").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("E17:E22"), Type:=xlFillDefault
Range("E17:E22").Select
End Sub





merci par avance pour votre aide précieuse