J'ai un souci avec le code suivant...

J'ai une feuille de données en 8 colonnes avec une ligne d'entête à partir de A1...

Un userform avec une listbox qui me permet de consulter les données de la feuille... lorsque je selectionne une ligne de la listbox je voudrai, en cliquant sur le commandbutton5, supprimer la ligne dans la feuille... or il me renvoi

pour la ligne 9
'erreur d'execution 424
'objet requis

Je ne comprend pas ce qu'il me manque...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton5_Click()
Dim Mes As Integer
    Mes = MsgBox("Vous êtes sur le point de supprimer un enregistrement. Action irreversible ! Voulez vous continuer ?", _
            vbExclamation + vbYesNo)
    If Mes = vbNo Then
        Unload Me
    Else
        With lstFiltre
            Sheets("Retenues").Rows(.List(.ListIndex, 8) + 1).EntireRow.Delete
        End With
    End If
End Sub