Code censé supprimer des lignes qui ne marche pas

Bonjour à tous.

Voici mon code :

Private Sub CommandButton1_Click()

Dim DL2 As Long

DL2 = Sheets("Voyages FOURNISSEUR").Cells(Application.Rows.Count, 1).End(xlUp).Row

For i = DL To 2 Step -1

If Sheets("Voyages FOURNISSEUR").Range("A" & i).Value = (UserForm3.TextBox_SUPP_OT.Value) * 1 Then
    If Sheets("Voyages FOURNISSEUR").Range("B" & i).Value = (UserForm3.TextBox_SUPP_REF.Value) * 1 Then
        Sheets("Voyages FOURNISSEUR").Rows(i).Delete
        Sheets("Voyages CLIENT").Rows(i).Delete
        Sheets("Voyages NOUS").Rows(i).Delete
    End If
End If

Next i

Unload UserForm3

End Sub

Les lignes censées être supprimées ne le sont pas... Quelqu'un peut-il m'aider? Je joins mon fichier.

Merci beaucoup d'avance.

Cordialement.

Bonjour,

Tu peux peut-être commencer par ramplacer DL dans ton code par DL2.

Cdlt.

Roh j'en ai marre. Ca fait depuis 7h de matin que je suis sur du code, je ne vois même plus l'évidence......

J'ai eu des soucis de texte au début, d'où mes * 1.

Merci beaucoup...

Cordialement.