vider les variables

Bonjour a tous

Voici une petite formule qui provient d'un acro , elle va tres bien sauf qu'apres avoir transposer les valeurs dans la feuilles elles va les mettres dans la feuilles suivantes alors a t'il une formule pour vider les variables
merci de votre aide
et voici cette formule

Merci de votre aide dennnisss



For Kk = 0 To 3 Step 3
For Jj = 7 To 11
For Ii = 5 To 7
Cells(Jj, Ii + Kk).Value = Val(Controls("TextBox" & CStr(numéro)))
If numéro <> 15 Then
numéro = numéro + 1
Else
numéro = numéro + 4
End If
Next Ii
Next Jj
Next Kk