XL 2019 VBA - Supprimer une ligne désignée

Sub Supprimer()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OD As Worksheet 'déclare la variable OS (Onglet Destination)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)

Set OS = Worksheets("Base de données pour modif") 'définit l'onglet source OS
Set OD = Worksheets("BDDsource") 'définit l'onglet destination OD
DL = OS.Cells(Application.Rows.Count, "B").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne B de l'onglet OS
For I = DL To 5 Step -1 'boucle inversée : de DL à 5 en remontnant
    If OS.Cells(I, "B") = "x" Then 'condition : si la cellule ligne I colonne B de l'onglet OS vaut "x"
        OD.Rows(I).EntireRow.Delete 'supprime la ligne I de l'onglet OD
        'supprime la ligne I de l'onglet OS (il me semble sinon tu n'auras plus de correspondance entre les deux onglets)
        OS.Rows(I).EntireRow.Delete
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
End Sub