VBA : RECOPIE AUTOMATIQUE et SUPPRESSION LIGNES COMPORTANT UN MOT PRECIS

Sub Recopie()
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)

Set O = Worksheets("Feuil1") 'défint l'onglet O '<==== ici il faut adapter au nom de l'onglet
DL = O.Cells(Application.Rows.Count, "C").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet O
For I = 6 To DL - 1 'boucle 1 : sur toutes les lignes I de 6 à DL -1
    For J = 3 To 5 'boucle 2 : sur le colonnes 3 à 5 (=> colonne C à E)
        'si la cellule en-dessous est vide elle prend la valeur de la cellule de la boucle
        If O.Cells(I + 1, J).Value = "" Then O.Cells(I + 1, J).Value = O.Cells(I, J).Value
    Next J 'prochaine colonne de la boucle 2
Next I 'prochaine ligne de la boucle 1
End Sub