Userform vers tableau excel

Private Sub CommandButton1_Click()
Dim idx As Long, col As Long, lig As Long
For idx = 0 To Me.ListBox4.ListCount - 1
    For col = 2 To Columns.Count
        If Cells(19, col).Value >= Me.DTPicker5 _
            And Cells(19, col).Value <= Me.DTPicker4 Then
            For lig = 20 To Cells(Rows.Count, 1).End(xlUp).Row
                If Cells(lig, 1).Value = Me.ListBox4.List(idx) Then
                    Cells(lig, col).Value = _
                    Sheets("Feuil1").Listbox1.List(Sheets("Feuil1").Listbox1.ListIndex)
                    Exit For
                End If
            Next lig
        End If
    Next col
Next idx
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    UserForm1.Show
End Sub