Supprimer ligne en fonction VBA

[isa44]

Bonjour , j'ai un souci avec un code trouvé sur le forum :

Pour supprimer la ligne contenant les valeures de la Boite_Nom.

Avec ce code elle supprime la ligne 11 et pas celle qui contient les valeures de la Boite_Nom !!!

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

Merci pour vos solutions

 

[CBernardT]

Re : Supprimer ligne en fonction VBA

Bonjour isa44,

Un petit extrait de ton projet serait le bienvenu.

Cordialement

Bernard