renvoye de valeurs en face de chaque occurrence

Bonsoir a toutes et a tous ...........
Comme souvent
J'ai créé un exemple light, pour plus de clarté

Mon problème :
Essayer de renvoyer des valeurs saisies dans une USF, en face de chaque occurrence
(La liste n’est pas limité à cet exemple ,je prévoie environ 1500 entrées)
Auriez vous une piste simpa ?
Merci d’avance pour vos sujétions,
Au plaisir de vous lire
E et F
voila j ai trouvé !!
Private Sub CommandButton1_Click()
For Each cell In Range("c4", Range("c65536").End(xlUp))
If cell.Value = TextBox1.Value Then cell.Offset(0, 4) = TextBox5.Value
If cell.Value = TextBox2.Value Then cell.Offset(0, 4) = TextBox6.Value
If cell.Value = TextBox3.Value Then cell.Offset(0, 4) = TextBox7.Value
If cell.Value = TextBox4.Value Then cell.Offset(0, 4) = TextBox8.Value
Next
Unload Me
End Sub