C
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox ('vous êtes sur le point de supprimer cette archive'), vbYesNoCancel
If vbYes Then
With Sheets('Feuil2')
.Rows(Me.ListBox1.ListIndex + 1 + 4).Delete
End With
Me.ListBox1.Clear
End If
End Sub