XL 2019 demande d'aide sur code

Bonjour a tous.
et merci

je souhaite mettre en œuvre se code mais sans réussite.

Dim c As Range
Dim firstAddress As String
Dim NumCombo As Variant
Dim NumTextBox As Variant


Dim c As Range
Dim firstAddress As String

With Worksheets("Tarifs").Range("C4:C3004")
For NumTextBox = 57 To 64
For NumCombo = 17 To 24
Set c = .Find("TextBox" & NumTextBox, LookIn:=xlValues)

If Not c Is Nothing Then
firstAddress = c.Address
Do
Me.Controls("ComboBox" & NumCombo) = c.Offset(0, 1)
Set c = .FindNext(c)
Loop While Not c Is Nothing
End If
Next NumTextBox
Next NumCombo

Set c = Nothing

sincèrement merci pour votre temps et vos compétences