Bonjour

j'ai des feuilles qui se nomment Pic1, Pic2, Pic3, ... , Pic20 et d'autres feuilles avec des noms différents.

Je voudrais pouvoir boucler sur les feuilles intitulées Pic1 à Pic20 J'ai écrit le code suivant mais ça ne fonctionne pas :

Ws est défini en Worksheet

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
For Colonne = 2 To DerC Step 1
    Col = Colonne - 1
    Ws = "Pic" & Col
    For Ligne = 1 To DerL Step 1
        Sheets("Pics").Cells(Ligne, Colonne) = Ws.Cells(Ligne, 2)
    Next Ligne
Next Colonne
Le but est de récupérer chaque deuxième colonne des feuilles pic1 à Pic20 et de les recopier dans les colonnes B (colonne B de la feuille Pic1), C(colonne B de la feuille Pic2), ...(colonne B de la feuille Pic...), U (colonne B de la feuille Pic20) dans une feuille nommée Pics.

Merci pour votre aide