Listbox vers cellule

Option Explicit

Private Sub CommandButton1_Click()
Dim i As Byte, z As Byte, L As Object
For i = 0 To Me.Listchoix.ListCount - 1
    If Me.Listchoix.Selected(i) = True Then
        Set L = Range("D14").End(xlUp).Offset(1, 0)
        L.Value = Listchoix.List(i)
        For z = 2 To 4
            L.Offset(, z).Value = Listchoix.List(i, z)
        Next z
    End If
Next i
End Sub

Private Sub CheckBox1_Click()
For i = 0 To Listchoix.ListCount - 1
    Listchoix.Selected(i) = IIf(CheckBox1, True, False)
    CheckBox1.Caption = IIf(CheckBox1, "Tous", "Aucun")
Next i
End Sub