'un truc du genre
TextBox1.Value = Format(CCur(Replace(Cells( lign,1), ".", ",")), "### ### ##0.00")
For i = 2 To 19 'on va sauter une Colonne (1+i)
Controls("TextBox" & i) = Format(CCur(Replace(Cells(lign, 1 + i), ".", ",")), "### ### ##0.00")
Next i