Erreur 13 workbook

Bonjour a tous,

Je tente de régler un problème d'incompatibilité de type sur un programme VBA que je suis en train de faire.
J'ai une erreur 13 sur le code suivant :

Dim wkb As Workbook

Private Sub CommandButton1_Click()

Worksheets("C_JIC").Range("B5000").End(xlUp).Offset(1, 0).Value = TextBox1

Set wkb = Worksheets("C_JIC")

Row = wkb.Cells.Find(TextBox1.Value, wkb.Range("B5000"), , , xlByRows, xlPrevious).Row

wkb.Cells(Row, 3).Value = TextBox2
wkb.Cells(Row, 4).Value = TextBox3
wkb.Cells(Row, 5).Value = TextBox4
wkb.Cells(Row, 6).Value = TextBox5

End Sub

j'ai mis en gras souligné la ligne qui pose probleme. Est ce que vous auriez une idée de ce qui pose probleme ?

Merci beaucoup par avance.