Re,
Précise ce que tu veux faire car dans cette partie de programme :
For col = 4 To 7 'ou 6
For lig = 8 To 13
k = k + 1
a = Feuil1.Cells(lig, col)
Controls("TextBox" & k) = Feuil1.Cells(lig, col)
Next
Next
Tu as besoin de 24 Textboxs puisque tu boucles sur les colonnes et les lignes pour alimenter des textboxs dont le numéro s'incrémente de 1 à chaque passage
Ton USF ne contient que 6 textboxs
A suivre