Copie de données selon critères+Bouton Macro

Bonjour Gbinforme,
Je te souhaite une excellente année 2017.
Merci pour le fichier, je l'étudie de prêt.
Si je souhaite modifier la colonne de destination des données, à quelle endroit puis-je le faire?
Encore merci pour ton aide, ton fichier est vraiment généralissime.

Bonjour NaXiLeAn et bonne année 2017,

Si je souhaite modifier la colonne de destination des données
Pour les titres et les données tu as ce code :

                For col = 0 To UBound(cls)
                    ws.Cells(lgs, col + 1).Value = wo.Cells(lgo, cls(col)).Value

Comme col commence à zero, le "+ 1" le met en colonne A si tu le veux en F tu remplaces par "+ 6"

Merci,
Mais si je souhaite mettre les données dans un ordre qui ne se suit pas, est que cela irait?

    On Error GoTo 0
    lgs = ws.UsedRange.Rows.Count + 1
    For lgo = 2 To wo.UsedRange.Rows.Count
        If LCase(wo.Cells(lgo, "AE")) = "récolte" _
            And wo.Cells(lgo, "BU") > 0 _
            And LCase(wo.Cells(lgo, "G")) = "vert" Then
                For col = 0 To UBound(cls)
                    'ws.Cells(lgs, col + 1).Value = wo.Cells(lgo, cls(col)).Value
                'Next col
                'lgs = lgs + 1
ws.Cells(lgs, "B").Value = wo.Cells(lgo, "G").Value '(la donnée de la colonne G va en colonne B sur l'onglet créé?
ws.Cells(lgs,"E" ).Value = wo.Cells(lgo, "J" & " " &"I").Value '(la concaténation des données des colonne I & J va en colonne E sur l'onglet créé?
        End If
    Next lgo

Je considère que tu as entièrement répondu à mon poste et je vais mettre le poste en résolu... J'essai juste de comprendre le code pour pouvoir le réutiliser ensuite.
Emcore merci Gbinforme.

Bonsoir,

Petite erreur de syntaxe soulignée et il te manque "BU" peut-être

    For lgo = 2 To wo.UsedRange.Rows.Count
        If LCase(wo.Cells(lgo, "AE")) = "récolte" _
            And wo.Cells(lgo, "BU") > 0 _
            And LCase(wo.Cells(lgo, "G")) = "vert" Then
                ws.Cells(lgs, "B").Value = wo.Cells(lgo, "G").Value '(la donnée de la colonne G va en colonne B sur l'onglet créé?
                ws.Cells(lgs, "E").Value = wo.Cells(lgo, "J").Value & " " & wo.Cells(lgo, "I").Value '(la concaténation des données des colonne I & J va en colonne E sur l'onglet créé?   
                lgs = lgs + 1
        End If
    Next lgo

Il te faut peut-être aussi rectifier de même la création ligne titre.

J'essai juste de comprendre le code pour pouvoir le réutiliser ensuite
Tu as tout à fait raison, en informatique il vaut mieux comprendre que copier les yeux bandés. ;-)

Effectivement,
Mes données se succèdent sans cas particulier ni concaténation.
J'avais bien BU mais je n'ai pas encore testé ta modif.
J'ai effectivement besoin de modifier mes titres de colonnes, réorganiser mes colonnes et ajouter quelques informations.
Je pensais pouvoir m'en sortir en "bidouillant" mais ça n'est pas si simple...
Destination : données depuis le fichier source
A : données de la B
B : Date du jour
C : données de la colonne G
D : colonne vide avec pour titre "Numéro"
E : concaténer(j; " "; i)
E : données de la colonne BU
G : colonne contenant "date du" & format(Month(Date) - 1;"mm-yyyy")
H : données de la B
Comment faire simple, quand on peut faire compliqué...

J'apprends grâce aux réponses que je reçois sur le forum.
Je m'étonne même à présent de pouvoir répondre (un peu) aux autres et à créer des codes seule!!!!! 8)