Pb de Listbox

Private Sub CommandButton1_Click()

Dim m As Long

If ListBox1.ListIndex = -1 Then Exit Sub

If CheckBox1 Then
    With Sheets(CheckBox1.Caption)
        m = 1
        For i = 0 To ListBox1.ListCount - 1
          If ListBox1.Selected(i) Then
             .Range("A" & m) = ListBox1.List(i, 0)
             .Range("B" & m) = ListBox1.List(i, 1)
             .Range("C" & m) = ListBox1.List(i, 2)
             m = m + 1
          End If
        Next
    End With
End If

If CheckBox2 Then
    With Sheets(CheckBox2.Caption)
        m = 1
        For i = 0 To ListBox1.ListCount - 1
          If ListBox1.Selected(i) Then
             .Range("A" & m) = ListBox1.List(i, 0)
             .Range("B" & m) = ListBox1.List(i, 1)
             .Range("C" & m) = ListBox1.List(i, 2)
             m = m + 1
          End If
        Next
    End With
End If
Unload Me

End Sub