Exportation données listbox

Private Sub CommandButton1_Click()
With Sheets("feuil1")
       j = .[A65000].End(xlUp).Row + 1

       With ListBox1
       For i = 0 To .ListCount - 1
              If .Selected(i) = True Then

              Cells(j, 1) = .List(i, 0)
              .Selected(i) = False
              j = j + 1
       End If
       Next
       End With
    End With
End Sub

Private Sub CommandButton3_Click()
With Sheets("feuil1")
       j = .[A65000].End(xlUp).Row + 1
       With ListBox2
       For i = 0 To .ListCount - 1
              If .Selected(i) = True Then

              Cells(j, 1) = .List(i, 0)
              .Selected(i) = False
              j = j + 1
       End If
       Next
       End With
    End With
End Sub