Supprimer ligne en fonction VBA

Option Explicit
Dim I As Integer
Dim TestSup As String

Function Sup_Ligne()
On Error Resume Next
With Boite
    I = 10
    Do While Range("[Car]Fichier!A11").Offset(I, 0) <> ""
        If Range("[Car]Fichier!D11").Offset(I, 0) & " " & Range("[Car]Fichier!B11").Offset(I, 0) = Boite.Nom Then
            Exit Do
        End If
    I = I + 1
    Loop
    TestSup = MsgBox("Suppression de la fiche : " & .Nom, vbOKCancel, "Suppression fiche")
    If TestSup = vbOK Then

       Sheets("Fichier").Rows(I + 1).Delete
       
        
    End If
End With
End Function