Automatisation de formules Excel

Sub Macro1()
Dim O As Object 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim PL As Range 'déclare la variable PL (Plage de Lignes)
Dim I As Integer 'déclare la variable I (Incrément)

Set O = Sheets("Feuil1") 'définit l'onglet O (à adapter)
DL = O.Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne 1 (=A) de l'onglet O (à adapter à la colonne ayant le plus de lignes éditée)
Set PL = O.Range("A1") 'initialise la plafe de lignes PL
TC = O.Range("A1:V" & DL) 'définit le tableau de cellules TC
For I = 1 To UBound(TC, 1) 'boucle sur toutes les lignes du tableau TC
    'si la cellule en colonne 7 (=G) de la ligne est inférieure à 30, redéfinit la plage de lignes PL
    If TC(I, 7) < 30 Then Set PL = IIf(PL.Cells.Count = 1, O.Rows(I), Application.Union(PL, O.Rows(I)))
    'si la cellule en colonne 15 (=0) de la ligne vaut "Anomalies", redéfinit la plage de lignes PL
    If TC(I, 15) = "Anomalie" Then Set PL = IIf(PL.Cells.Count = 1, O.Rows(I), Application.Union(PL, O.Rows(I)))
Next I 'prochaine ligne de la boucle
PL.Delete 'supprime la plage des lignes PL
End Sub

Sub Macro1()
Dim O As Object 'déclare la variable O (Onglet)
Dim LI As Range 'déclare la variable LI (Plage de Lignes)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim D As Object 'déclare la variable D (Dictionnaire)
Dim I As Integer 'déclare la variable I (Incrément)
Dim TMP As Variant 'déclare la variable TMP (tableau TeMPoraire)
Dim PLV As Range 'déclare la variable PLV (PLage Visible)

Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
Set O = Sheets("Feuil1") 'définit l'onglet O (à adapter)
Set LI = O.Range("A1") 'initialise la plage de lignes LI
DL = O.Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne 1 (=A) de l'onglet O (à adapter à la colonne ayant le plus de lignes éditée)
Set PL = O.Range("A2:V" & DL) 'définit la palge PL
TC = PL 'définit le tableau de cellules TC
Set D = CreateObject("Scripting.Dictionary") 'définit le dictionnaire D
For I = 1 To UBound(TC, 1) 'boucle sur toutes les lignes du tableau TC
    D(TC(I, 1)) = "" 'alimente le dictionnaire D
Next I 'prochaine ligne de la boucle
TMP = D.keys 'récupère dans le tableau temporaire TMP la liste des élément du dictionnaire D sans doublon
For I = 0 To UBound(TMP) 'boucle sur tous les éléments du tableau temporaire TMP
    O.Range("A1").AutoFilter Field:=1, Criteria1:=TMP(I) 'filtre en A1 la colonne 1 (=A) de l'onglet O avec TMP(I) comme critère
    Set PLV = PL.SpecialCells(xlCellTypeVisible) 'définit la plage PLV (cellules visibles (non filtrées) de la plage PL)
    If Application.Intersect(PLV, O.Columns(1)).Cells.Count > 1 Then PLV.EntireRow.Delete 'si doublons, supprime la plage PLV
    O.Range("A1").AutoFilter 'supprime le filtre automatique
Next I 'prochaine élément de la boucle
DL = O.Cells(Application.Rows.Count, 1).End(xlUp).Row 'redéfinit la dernière ligne éditée DL de la colonne 1 (=A) de l'onglet O (à adapter à la colonne ayant le plus de lignes éditée)
TC = O.Range("A1:V" & DL) 'définit le tableau de cellules TC
For I = 2 To UBound(TC, 1) 'boucles sur toutes les lignes du tableau TC (en partant de la seconde)
    'si la cellule en colonne 7 (=G) de la ligne est inférieure à 30, redéfinit la plage de lignes LI
    If TC(I, 7) < 30 Then Set LI = IIf(LI.Cells.Count = 1, O.Rows(I), Application.Union(LI, O.Rows(I)))
    'si la cellule en colonne 15 (=0) de la ligne vaut "Anomalies", redéfinit la plage de lignes LI
    If TC(I, 15) = "Anomalie" Then Set LI = IIf(LI.Cells.Count = 1, O.Rows(I), Application.Union(LI, O.Rows(I)))
Next I 'prochaine ligne de la boucle
LI.Delete 'supprime la plage des lignes LI
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub

Sub Macro1()
Dim O1 As Object 'déclare la variable O1 (Onglet 1)
Dim O2 As Object 'déclare la variable O2 (Onglet 2)
Dim LI As Range 'déclare la variable LI (Plage de Lignes)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim D As Object 'déclare la variable D (Dictionnaire)
Dim I As Integer 'déclare la variable I (Incrément)
Dim TMP As Variant 'déclare la variable TMP (tableau TeMPoraire)
Dim PLV As Range 'déclare la variable PLV (PLage Visible)

Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
Set O1 = Sheets("Feuil1") 'définit l'onglet O1
Set O2 = Sheets("Feuil2") 'définit l'onglet O2
O2.Rows.Delete 'supprime des éventuelles anciennes données de l'onglet O2
O1.UsedRange.Copy O2.Range("A1 ") 'copy le tableau de l'onglet O1 dans l'onglet O2

Set LI = O2.Range("A1") 'initialise la plage de lignes LI
DL = O2.Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne 1 (=A) de l'onglet O2 (à adapter à la colonne ayant le plus de lignes éditée)
Set PL = O2.Range("A2:AA" & DL) 'définit la palge PL
TC = PL 'définit le tableau de cellules TC
Set D = CreateObject("Scripting.Dictionary") 'définit le dictionnaire D
For I = 1 To UBound(TC, 1) 'boucle sur toutes les lignes du tableau TC
    D(TC(I, 23)) = "" 'alimente le dictionnaire D
Next I 'prochaine ligne de la boucle
TMP = D.keys 'récupère dans le tableau temporaire TMP la liste des élément du dictionnaire D sans doublon
For I = 0 To UBound(TMP) 'boucle sur tous les éléments du tableau temporaire TMP
    O2.Range("A1").AutoFilter Field:=23, Criteria1:=TMP(I) 'filtre en A1 la colonne 23 (=W) de l'onglet O2 avec TMP(I) comme critère
    Set PLV = PL.SpecialCells(xlCellTypeVisible) 'définit la plage PLV (cellules visibles (non filtrées) de la plage PL)
    On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
    Set PLV = PLV.Offset(1, 0).Resize(PLV.Rows.Count - 1, PLV.Columns.Count) 'redéfinit la plage PL en gardant la première ligne (génere une erreur si PLV n'a qu'une seule ligne)
    If Err <> 0 Then 'condition : si une erreur a été générée
        Err.Clear 'efface l'erreur
        GoTo suite 'va a l'étiquette "suite" sans supprimer la plage PLV
    End If 'fin de la condition
    PLV.EntireRow.Delete 'supprime la plage PLV
suite: 'étiquette
On Error GoTo 0 'annule la gestion des erreurs
O2.Range("A1").AutoFilter 'supprime le filtre automatique
Next I 'prochaine élément de la boucle
DL = O2.Cells(Application.Rows.Count, 1).End(xlUp).Row 'redéfinit la dernière ligne éditée DL de la colonne 1 (=A) de l'onglet O2 (à adapter à la colonne ayant le plus de lignes éditée)
TC = O2.Range("A1:AA" & DL) 'redéfinit le tableau de cellules TC
For I = 2 To UBound(TC, 1) 'boucles sur toutes les lignes du tableau TC (en partant de la seconde)
    'si la cellule en colonne 26 (=Z) de la ligne est inférieure à 30, redéfinit la plage de lignes LI
    If TC(I, 26) < 30 Then Set LI = IIf(LI.Cells.Count = 1, O2.Rows(I), Application.Union(LI, O2.Rows(I)))
    'si la cellule en colonne 27 (=AA) de la ligne est différente de "oui", redéfinit la plage de lignes LI
    If TC(I, 27) <> "oui" Then Set LI = IIf(LI.Cells.Count = 1, O2.Rows(I), Application.Union(LI, O2.Rows(I)))
Next I 'prochaine ligne de la boucle
LI.Delete 'supprime la plage des lignes LI
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub