En quelles unités ils marchent ?

With TextBox1.TopLeftCell
  TextBox1.Left = .Left
  TextBox1.Top = .Top
  .ColumnWidth = (TextBox1.Width - 2) * .ColumnWidth / .Width
  'le -2 parce qu'il y a une marge dans l'objet TexBox1...
End With

With TextBox1.TopLeftCell
  TextBox1.Left = .Left
  TextBox1.Top = .Top
  .ColumnWidth = 255 'largeur maximum pour avoir un coefficient correct
  .ColumnWidth = Application.Min(TextBox1.Width * .ColumnWidth / .Width, 255)
  TextBox1.Width = .Width 'petit ajustement de la TextBox
End With

Dim tb As Object
Set tb = ActiveSheet.TextBox1 'à adapter
With tb.TopLeftCell
  tb.Left = .Left
  tb.Top = .Top
  .ColumnWidth = 255 'largeur maximum pour avoir un coefficient correct
  .ColumnWidth = Application.Min(tb.Width * .ColumnWidth / .Width, 255)
  tb.Width = .Width 'petit ajustement de la TextBox
End With

Private Sub CommandButton1_Click()
'Bouton GO : déclenche le listage des nombres aléatoires dans les 2 1ères colonnes de la feuille "Données"
   
  Application.ScreenUpdating = False
  
  Dim tb As Object, NbTotalChif As Double, largeur As Double

  Set tb = ActiveSheet.GetNbLgn 'TextBox "GetNbLgn"
  largeur = tb.Width 'largeur du TexTbox "GetNbLgn"
  largeur = largeur * 0.149 'bidouillage pour la conversion des unités absconses...
  
  Lim_Inf = TextBox1: Lim_Sup = TextBox2: virg = ComboBox1: Label4.Caption = Limites
   
  NbTotalChif = NbChiffres(Lim_Inf, Lim_Sup, virg) 'nombre de chiffres possibles entre les 2 limites
  [NbTotalChiffres] = NbTotalChif 'la cellule nommée "NbTotalChiffres" récupère le nombre total de chiffres entre les 2 limites
  
  '**** Ajustage de la largeur de la colonne où se trouve la cellule affichant le nombre de chiffres entre 2 nombres *****
  [NbTotalChiffres].EntireColumn.AutoFit 'ajuste la largeur de la colonne au contenu de la cellule "cel"
  'la largeur de la colonne où se trouve la cellule nommée "NbTotalChiffres" ne peut être inférieure à la largeur du TextBox "GetNbLgn"
  If [NbTotalChiffres].ColumnWidth < largeur Then [NbTotalChiffres].ColumnWidth = largeur
  '***********************************************************************************************************************

  If NbLignes > NbTotalChif Then 'il y a plus de lignes que de nombre de chiffres entre les 2 limites de l'intervalle
    Call Big_Bazar_sur_Punta_del_Este_Plages(NbTotalChif) 'on doit raccourcir les colonnes, sinon big plantade !
    NbLignes = NbTotalChif: tb.Text = NbTotalChif
  End If
  
  Call ActualiserColonnes("[", "]") 'dresse les 2 listes de numéros aléatoires
  
  Application.OnTime Now, "EnregistrerUSF_Aleatoire" 'garde en mémoire les dernières valeurs entrées dans l'USF (job75)
  Application.ScreenUpdating = True
End Sub