Boucle faisant intervenir deux feuilles Excel

Bonjour à tous,

Voici ci-dessous ma macro-commande. Elle fonctionne bien pour 3 lignes de mon devis. Cependant, j'ai besoin de cette même macro sur 32 lignes et je souhaiterai la transformer en insérant une boucle en descendant de 5 lignes pour chaque cellule du "devis" et de 1 ligne pour chaque cellule du "devis modèle".

Dans le "devis", les informations sont indiquées l'une en dessous de l'autre dans la même colonne (c'est un formulaire).

Dans le "devis modèle", les informations sont indiquées à l'horizontal comme un devis classique.

J'ai regardé les différents tutos sur le sujet mais je n'y arrive pas.

Sub macro4()

'Prestation1
Sheets("devis").Select
Range("c16").Offset.Select
Selection.Copy
Sheets("devis modèle").Select
Range("b23").Offset.Select
Selection.PasteSpecial Paste:=xlPasteValues

Sheets("devis").Select
Range("c17:c20").Offset.Select
Selection.Copy
Sheets("devis modèle").Select
Range("i23").Offset.Select
Selection.PasteSpecial Transpose:=True

'Prestation2
Sheets("devis").Select
Range("c21").Offset.Select
Selection.Copy
Sheets("devis modèle").Select
Range("b24").Offset.Select
Selection.PasteSpecial Paste:=xlPasteValues

Sheets("devis").Select
Range("c22:c25").Offset.Select
Selection.Copy
Sheets("devis modèle").Select
Range("i24").Offset.Select
Selection.PasteSpecial Transpose:=True

'Prestation3
Sheets("devis").Select
Range("c26").Offset.Select
Selection.Copy
Sheets("devis modèle").Select
Range("b25").Offset.Select
Selection.PasteSpecial Paste:=xlPasteValues

Sheets("devis").Select
Range("c27:c30").Offset.Select
Selection.Copy
Sheets("devis modèle").Select
Range("i25").Offset.Select
Selection.PasteSpecial Transpose:=True

End Sub

Merci de votre aide

Bonjour et bienvenue,
Peux-tu joindre un fichier à a demande ?
Ceci pour une aide adaptée du forum.
Cdlt.

Voici le fichier

Bonjour Nadège66,

Il faut éviter les "Select" autant que c'est possible ...

Le code pourrait être écrit ainsi ...

Aussi, attention à la casse du nom des feuilles ... (minuscule/majuscule)

    Sheets("DEVIS").Range("C16").Copy
    Sheets("DEVIS MODÈLE").Range(B23").PasteSpecial Paste:=xlPasteValues

    Sheets("DEVIS").Range("C17:C20").Copy
    Sheets("DEVIS MODÈLE").Range("I23").PasteSpecial Transpose:=True

ric

Merci beaucoup pour ces informations. J'en tiendrai compte dans l'écriture de mon code.

Cependant, cela ne règle pas mon problème de boucle.