Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i&, x$, tablo, j&
With ListBox1
i = .ListIndex
If i = -1 Then Exit Sub
If MsgBox(.List(i, 0) & " " & .List(i, 1) & " du " & .List(i, 4) & " sera supprimé de la base ?", 4) = 7 Then Exit Sub
x = .List(i, 0) & .List(i, 1) & .List(i, 4)
tablo = [Tableau1].Resize(, 5)
For j = 1 To UBound(tablo)
If tablo(j, 1) & tablo(j, 2) & tablo(j, 5) = x Then [Tableau1].Rows(j).Delete xlUp: Exit For
Next
.RemoveItem i
End With
End Sub