Afficher Lisview avec la meme mise en forme que le tableau

Private Sub UserForm_Initialize()
'met plein écran
RX! = Me.Lv.Width

Public Sub draw_txt(ByVal sh As String, ByVal PosDpt As Double, ByVal NBR As Long, ByVal T As Double, ByVal Wi As Double, ByVal Hght As Integer, ByVal lg As Long)
Dim X As String
Dim NB As Long
Dim MonAlpha
Dim CMT As Long
Dim Ecart As Double
Dim Pos_Dpt As Double
MonAlpha = Array(" ", "a", "b", "c", "d", "e", "f", "g", _
    "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", _
    "r", "s", "t", "u", "v", "w", "x", "y", "z", "aa", "ab", "ac", "ad", "ae", "af", "ag", _
    "ah", "ai", "aj", "ak", "al", "am", "an", "ao", "ap", "aq", _
    "ar", "as", "at", "au", "av", "aw", "ax", "ay", "az", "ba", "bb")
For lg_count = 1 To lg
Ecart = Hght
Pos_Dpt = PosDpt
W = Pos_Dpt
For CMT = 1 To NBR
If W = Pos_Dpt Then svnt = svnt + T
Hght = Hght + Ecart
W = W + Wi
X = "A": NB = CMT
Set TXT = Me.Controls.Add("Forms.TextBox.1", "TextBox1", True)
With TXT
.Top = svnt
If W = Pos_Dpt Then W = 2 * Wi: .Left = W - Wi Else: .Left = W - Wi
If CMT = 1 Then .Left = Pos_Dpt
.Width = Wi
.Height = Hght
.Name = MonAlpha(CMT) & lg_count
.Text = Sheets(sh).Range(MonAlpha(CMT) & lg_count).Value
If IsNumeric(Sheets(sh).Range(MonAlpha(CMT) & lg_count).Value) Then
If Sheets(sh).Range(MonAlpha(CMT) & lg_count).Value = 40 Then .BackColor = vbGreen
If Sheets(sh).Range(MonAlpha(CMT) & lg_count).Value > 40 Then .BackColor = vbRed
Else:
.BackColor = vbWhite
End If
.SpecialEffect = fmSpecialEffectFlat
.Locked = True
End With
Next CMT
Hght = Ecart
Next lg_count
End Sub

Private Sub CommandButton1_Click()
Rem explication de code:
'critère à mettre dans l'ordre dans la parenthèse de la routine draw_txt
'ByVal sh As String : Nom de la feuille avec laquelle on va remplir les Textbox
'ByVal PosDpt As Double : Position de départ en .left de la première colonne de textbox par rapport au usf
'ByVal NBR As Long: Nombre de textbox avec un maximum fixer en fonction du tableau MonAlpha
'ByVal T As Double : Position du départ .top en rapport avec le usf
'ByVal Wi As Double : largeur des textbox
'ByVal Hght As Integer: hauteur des textbox
'ByVal lg As Long : nombre de ligne.
Call draw_txt("TABLEAU", 5, 54, 10, 70, 10, 20)
CommandButton1.Visible = False
End Sub

Private Sub UserForm_Initialize()
 With Me
 .BackColor = vbWhite ' afin d'assurer la transparence des multiples textbox
 .ScrollBars = fmScrollBarsBoth
 .ScrollHeight = .InsideHeight * 5 ' adapter le facteur de multiplication en fonction du nombre de textbox si pas visible avec le usf
 .ScrollWidth = .InsideWidth * 5 'idem
End With
End Sub

MonAlpha = Array(" ", "a", "b", "c", "d", "e", "f", "g", _
     "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", _
     "r", "s", "t", "u", "v", "w", "x", "y", "z", "aa", "ab", "ac", "ad", "ae", "af", "ag", _
     "ah", "ai", "aj", "ak", "al", "am", "an", "ao", "ap", "aq", _
     "ar", "as", "at", "au", "av", "aw", "ax", "ay", "az", "ba", "bb")

'...
If CMT = 1 Then .Left = Pos_Dpt
MonAlpha$ = Cells(lg_count, CMT).AddressLocal(0, 0)
.Width = Wi
.Height = Hght
.Name = MonAlpha$
.Text = Sheets(Sh).Range(MonAlpha$).Value
If lg_count > 4 And IsNumeric(Sheets(Sh).Range(MonAlpha$).Value) Then 'pour ne pas colorer les nos !
   If Sheets(Sh).Range(MonAlpha$).Value = 40 Then .BackColor = vbGreen
   If Sheets(Sh).Range(MonAlpha$).Value > 40 Then .BackColor = vbRed
Else: .BackColor = vbWhite
End If
'...