Modif Code de Delete a Clearcontents??

Private Sub CommandButton7_Click()
Dim VarReponse As String, L As Long, Numlign As Long
Dim LstItem As ListItem

On Error Resume Next
Set LstItem = ListView1.SelectedItem
On Error GoTo 0

If LstItem Is Nothing Then
MsgBox "Pas de ligne sélectionnée"
Else
L = ListView1.SelectedItem.Index
End If

With ListView1
Numlign = Right(.ListItems(L).Key, Len(.ListItems(L).Key) - 1) 'N° ligne de la feuille
End With

VarReponse = MsgBox("Effacer la ligne ?", vbYesNo, "Alerte")
If VarReponse = vbNo Then Exit Sub

With Sheets("Data")
.Unprotect Password:="0000" '.Protect Password:="0000"
.Range("A" & Numlign & ":L" & Numlign).Delete Shift:=xlUp
.Protect Password:="0000"
End With
CommandButton3_Click 'réini

End Sub

Cliquez pour agrandir...