Bonsoir, erreur dans userform

Bonjour,
Voici mon soucis j'essaye d'alimenté un userform via une feuil sélectionner par une combobox
Cela fonction au niveau du choix de la feuil, de la a l'aide d'une 2eme combobox j'essaye d'alimenté mes textbox d'après le choix fait avec ma 2eme combobox et la probléme
Voila j'espère trouvé une aide et vous remercie suis autodictat en VBA
Voici le code fait mais pas fini cela se trouve dans l'userform Facturation
Private Sub ComboBox1_Click()

Dim Feuille As String
Feuille = ComboBox1.Value
Worksheets(Feuille).Select
End Sub

Private Sub ComboBox2_Change()
Dim cell As Range
Dim cherch As String, derlign As Long
Dim i As Integer
For i = 1 To 9
Me.Controls("TextBox" & i) = ""
Next i

If Trim(Me.ComboBox2) = "" Then Exit Sub

derlign = Sheets("ActiveSheet.Name").Range("A65536").End(xlUp).Row
cherch = ComboBox2

Set cell = Sheets("ActiveSheet.Name").Range("A2:J" & derlign).Find(cherch, LookAt:=xlWhole)
If Not cell Is Nothing Then
Ligne = cell.Row
TextBox1 = Sheets(ActiveSheet.Name).Cells(0, 1)
TextBox2 = Sheets(ActiveSheet.Name).Cells(0, 2)
TextBox3 = Sheets(ActiveSheet.Name).Cells(0, 3)
TextBox4 = Sheets(ActiveSheet.Name).Cells(0, 4)
End If
End Sub

Je joint mon fichier aussi

https://www.cjoint.com/?3IbxVQi4Ppv