Sélection de plusieurs plages dans une seule colonne

bonjour

j'ai un petit problème que j'arrive pas à résoudre:

en faite ce que je voulais faire c'est de parcourir une colonne et a chaque fois y'a un plage de cellules que je dois le sélectionner, le copier et le coller en transposée dans une autre feuilles.

si j'utilise la méthode de sélection de plage classique le code va être trop long donc normalement il faut passer par des compteurs pour parcour la colonne et sélectionner à chaque le plage souhaité.

peut être c un peux flou mais avec le fichier excel vous allez comprendre

la feuille2 est la feuille de départ et la feuille3 est la résultante

ce qui est coloré en jaune sur la feuille 3 est l'objectif de mon travail

merci pour votre attention et j'espère que j'aurais de l'aide

Bonjour,

à tester,

Sub Transfert()
Dim rw1 As Long, rw2 As Long, i As Long, j As Integer

rw1 = Sheets("Feuil2").Cells(Rows.Count, "B").End(xlUp).Row
rw2 = Sheets("Feuil3").Cells(Rows.Count, "B").End(xlUp).Row + 1

For i = 3 To rw1 Step 17
    Sheets("Feuil3").Cells(rw2, 2) = Sheets("Feuil2").Cells(i, 2)
    For j = 0 To 16
        Sheets("Feuil3").Cells(rw2, j + 3) = Sheets("Feuil2").Cells(i + j, "C")
    Next j
    rw2 = Sheets("Feuil3").Cells(Rows.Count, "B").End(xlUp).Row + 1
Next i
End Sub

il marche très bien merci beaucoup

parcontre quand je l'appelle dans un autre module avec la fonction call ca m'affiche que la dernière ligne

re,

montre moi ce que tu as fait

(joint ton fichier avec la modification décrite)