VBA : RECOPIE AUTOMATIQUE et SUPPRESSION LIGNES COMPORTANT UN MOT PRECIS

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
'pour définir la dernière ligne il te faut adapter la colonne, ici j'ai mis A...
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet O
For I = DL To 1 Step -1 'boucle 1 : inversée sur toutes les lignes I de DL à 1
    For J = 3 To 6 'boucle 2 : sur les colonne J de 3 à 6 (= C à F)
        'si la valeur de la cellule de la boucle vaut "Résultat", supprime la ligne, sort de la boucle 2
        If O.Cells(I, J).Value = "Résultat" Then O.Rows(I).Delete: Exit For
    Next J 'prochaine colonne de la boucle 2
Next I 'prochaine ligne de la boucle
End Sub

Sub Macro2()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)

Set O = Worksheets("FEUIl1") 'défint l'onglet O
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet O
For I = 1 To DL - 1 'boucle sur toutes les lignes I de 1 à DL -1
    'si la cellule en-dessous est vide elle prend la valeur de la cellule de la boucle
    If O.Cells(I + 1, "A").Value = "" Then O.Cells(I + 1, "A").Value = O.Cells(I, "A").Value
Next I 'prochaine ligne de la boucle
End Sub

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Integer 'déclare la variable J (incrément)

Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
For Each O In Worksheets 'boucle sur tous les onglets O du classeur
    Select Case O.Name 'agit en fonction du nom de l'onglet O de la boucle
        Case "JUL", "AOU", "SEP", "OCT", "NOV", "DEC" 'cas
            'pour définir la dernière ligne il te faut adapter la colonne, ici j'ai mis A...
            DL = O.Cells(Application.Rows.Count, "F").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet O
            For I = DL To 1 Step -1 'boucle 1 : inversée sur toutes les lignes I de DL à 1
                For J = 3 To 6 'boucle 2 : sur les colonne J de 3 à 6 (= C à F)
                    'si la valeur de la cellule de la boucle vaut "Résultat", supprime la ligne, sort de la boucle 2
                    If O.Cells(I, J).Value = "Résultat" Then O.Rows(I).Delete: Exit For
                Next J 'prochaine colonne de la boucle 2
            Next I 'prochaine ligne de la boucle
    End Select 'fin de l'action en fontion de ...
Next O 'prochain onglet de la boucle
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub