Private Sub supprimer_Click()
Dim NumLig As Long
Dim dl1 As Long ' dernière ligne
Dim nomfeuille1 As String
If ListBox1.ListIndex = -1 Then Exit Sub
' Calculer le numéro de la ligne
' 1 = ligne d'entête + numéro dans ListBox + 1 = ListBox commence à zéro et non 1
NumLig = 1 + Me.ListBox1.ListIndex + 1
' Supprimer de la ListBox
ListBox1.RemoveItem (ListBox1.ListIndex)
nomfeuille1 = "Feuil2"
With Sheets(nomfeuille1)
dl1 = .Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1
Sheets("feuil1").Range("A" & NumLig & ":W" & NumLig).Copy
Sheets("Feuil2").Range("a" & dl1).PasteSpecial 'Paste:=xlPasteValuesAndNumberFormats
Sheets("feuil1").Range("A" & NumLig & ":W" & NumLig).ClearContents
End With
End Sub
A tester
JP