Amélioration Code

Bonjour,

J'aimerais ajouter des colonnes et réorganiser le résultats du code suivant :

Set ws = Sheets("Edit")
        For col = 0 To UBound(cls)
            ws.Cells(1, col + 1).Value = wo.Cells(1, cls(col)).Value
        Next col
        ws.[A1].Activate
    End If
    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
        End If
        Next lgo

Le résultat donnerait :
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

Merci pour votre aide, et bonne année!



--
NaXiLeAn_2.0