Private Sub CommandButton3_Click()
Dim Msg As String
Dim NomLBindex
Dim WsBase
Msg = MsgBox('Etes-vous sur de vouloir supprimer ' _
& vbCrLf & vbCrLf & vbTab & ListBox1 & ' ?', vbYesNo, 'Mode Supression Articles ???')
If Msg = vbYes Then
ListBox1.Value = ''
With WsBase
[color=#FFFF00].Rows(NomLBindex).Delete[/color]
End With
End If
End Sub