Boucle Colonne

Bonjour,

J'aimerai faire une boucle qui copie colle d'une feuille vers une autre feuille, les colonnes dont j'ai besoin.

Voici par exemple comment j'ai démarrer ma boucle :

Do While Cells(i, j) <> "N°Produit"
        If j < 30 Then
        j = j + 1
        Else
        Cells(i, j).Select
        Range(Selection, Selection.End(xlDown)).Copy
        j = 15
        End If
    Loop

Je balaye le nom de la colonne que je veux, lorsque je la trouve je la copie. Mon problème est que je ne sais pas comment la coller sur une autre feuille...

De plus mon code sera surement trop redondant ? Car j'ai besoin d'une dizaine de colonnes. En effet ma première feuille contient une cinquantaine de colonnes (qui peuvent varier), mais seulement une dizaine sont nécessaires pour mon analyse sur la seconde feuille. Je fait ce code car il se pourrait que plus tard, j'ai besoin d'autre colonnes de la première feuille et donc il me suffira d'ajouter quelque lignes pour rajouter la colonne dont j'aurai besoin.

Je ne sais pas si le problème est clair ... Je débute ne soyez pas intransigeant

Si jamais vous avez besoin d'éclaircissement, n'hésitez pas!

Merci bonne journée!

Merci !

Re,

Ici tu as la possibilité de joindre un fichier. Pourquoi ne le fais-tu pas...

l'exemple est clair ?

Re,

Nouveau code. Dans l'onglet Base, double-clique dans une cellule de la ligne 1 pour copier la colonne. Code à placer dans le composant Feuil3 (base) :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim R As Range 'déclare la variable R (Recherche)
Dim COL As Integer 'déclare la variable COL (COLonne)
Dim CD As Integer 'déclare la variable CD (Colonne de Destination)

If Target.Row <> 1 Then Exit Sub 'si la cellule double-cliquée se trouve ailleurs que dans la ligne 1, sort de la procédure
Cancel = True
Set OD = Worksheets("Destination") 'définit l'onglet destination OD (à adapter à ton cas)
COL = Target.Column 'définit la colonne COL
'définit la colonne de destination CD (colonne de la première cellule vide de l'onglet destination)
CD = IIf(OD.Cells(1, 1) = "", 1, OD.Cells(1, Application.Columns.Count).End(xlToLeft).Column + 1)
Me.Columns(COL).Copy OD.Cells(1, CD) 'copie la colonne COL et la colle dans la colonne CD
End Sub