Option Explicit
Dim Col As String, Entete As String, Tex1 As String, _
Tex2 As String, Tex3 As String, Tex4 As String
Dim LigDebEff As Long, LigFinEff As Long, LigDeb As Long, _
LigFin As Long, Chi1 As Long, Chi2 As Long
Dim c As Range, TexT1, Alé, Tex10, Tex11
Private Sub UserForm_Initialize()
' Déclaration Colonne
Col = TextBox1.Value
' Déclaration de l'entête
Entete = TextBox2.Value
' Déclaration ligne
LigDebEff = TextBox3.Value
LigFinEff = TextBox4.Value
LigDeb = TextBox5.Value
LigFin = TextBox6.Value
' Déclaration Texte
Tex1 = TextBox7.Value
Tex2 = TextBox8.Value
Tex3 = TextBox9.Value
Tex4 = TextBox10.Value
TexT1 = Array(Tex1, Tex2, Tex3, Tex4)
' Déclaration Chiffre
Chi1 = TextBox11.Value
Chi2 = TextBox12.Value
' Déclaration des nombres aléatoires
Alé = Int(Chi2 * Rnd) + Chi1
End Sub