Message d'erreur sur code VBA

Bonjour le Forum

j'ai un message d'erreur qui s'affiche a chaque fois que j'essai d'enregistrer une demande.

cela concerne la ligne :

dest.Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value

j'aimerai avoir votre aide SVP

slt,

faute detéctée: For x = 1 To 32 !!!!

For x = 1 To 31
     dest.Value = Me.Controls("TextBox1").Value
     dest.Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value
 Next x

Merci Infiniment