XL 2016 Déplacer Une Ligne Entière Vers Une Autre Feuille En Fonction De La Valeur De La Cellule

Sub Macro1()
Dim OC As Worksheet 'déclare la variable OC (Onglet Commandes)
Dim OE As Worksheet 'déclare la variable OE (Onglet cmd Expediees)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Long 'déclare la variable I (Incrément)

Set OC = Worksheets("Commandes") 'définit l'onglet OC
Set OE = Worksheets("CDES EXPEDIEES") 'définit l'onglet OE
TV = OC.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs (en partant de la seconde. la première devrait être la ligne d'en-tête)
    If TV(I, 7) = "CDE EXPEDIEE" Then 'condition 'si la donnée ligne I colonne 7 (=> colonne G) est égale à "CDE EXPEDIEE"
        OC.Rows(I).Copy 'copie la ligne I de l'onglet OC
        OE.Rows(1).Insert 'insère la ligne copiée dans la première ligne de l'onglet OE
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
OE.Activate 'active l'onglet OE
Application.CutCopyMode = False 'masque le clignotement des cellules lié au [copier]
End Sub

Sub Cheezy()
Dim dest As Range
With Sheets("CDES EXPEDIEES")
    If .FilterMode Then .ShowAllData
    Set dest = .Cells(.Cells(.Rows.Count, 7).End(xlUp).Row + 1, 1)
End With
Application.ScreenUpdating = False
With Sheets("Commandes")
    If Application.CountIf(.Columns(7), "CDE EXPEDIEE") Then
        With .Range("A1", .UsedRange.EntireRow)
            .AutoFilter 7, "CDE EXPEDIEE" 'filtre automatique
            With Intersect(.Offset(1), .Cells)
                .Copy dest
                .SpecialCells(xlCellTypeVisible).Delete 'supprime les lignes copiées
            End With
            .AutoFilter 'ôte le filtre
        End With
    End If
    If Application.CountA(dest(0).EntireRow) = 0 Then .Rows(1).Copy dest(0) 'ligne des titres
End With
End Sub

Sub Cheezy2()
Dim dest As Range
With Sheets("CDES EXPEDIEES")
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    Set dest = .Cells(.Cells(.Rows.Count, 7).End(xlUp).Row + 1, 1)
End With
Application.ScreenUpdating = False
With Sheets("Commandes")
    If Application.CountIf(.Columns(7), "CDE EXPEDIEE") Then
        With .Range("A1", .UsedRange)
            .Columns(7).EntireColumn.Insert 'insère une colonne auxiliaire
            .Columns(7) = "=1/(RC[1]=""CDE EXPEDIEE"")/(ROW()>1)" 'formule du filtrage
            .Columns(7) = .Columns(7).Value 'supprime les formules
            .Sort .Columns(7), xlDescending, Header:=xlYes 'tri pour regrouper et accélérer
            With .Columns(7).SpecialCells(xlCellTypeConstants, 1).EntireRow
                .Copy dest
                .Delete 'supprime les lignes copiées
            End With
            dest(1, 7).Resize(Rows.Count - dest.Row + 1).Delete xlToLeft
            .Columns(7).EntireColumn.Delete 'supprime la colonne auxiliaire
        End With
    End If
    If Application.CountA(dest(0).EntireRow) = 0 Then .Rows(1).Copy dest(0) 'ligne des titres
End With
End Sub