Valeur de cellules vers textbox

bsr forum !

je voudrai transférer les valeurs d'une plage de cellules ("a1:i9") vers 81 textbox !

merci de votre aide !

Bonjour

Sans renseignement supplémentaire

Sub Remplissage()
Dim Cel As Range
Dim Compteur As Integer

  For Each Cel In Range("A1:I9")
    Compteur = Compteur + 1
    Me.Controls("TextBox" & Compteur) = Cel
  Next Cel
End Sub

bonjour Banzai64

merci bien pour votre réponse ! ça marche impécable