Private Sub CommandButton3_Click()
If txtUsagers = "" Then Exit Sub 'pas de selection
If MsgBox(" Vous ?tes sur d'Annuler la ligne" & vbCr & "V?hicule N? " & _
CboVehicule.Text, vbYesNo + vbExclamation, "SUPRESSION") = vbNo Then Exit Sub
lig = ListView1.SelectedItem.Index + 1
ListView1.ListItems.Remove lig
Feuil1.Rows(lig).Delete
End Sub