Private Sub CommandButton2_Click()
Dim proportion
Range("h1").Value = "Bonjour ça va ? Et toi ? Moi ça va et toi ?"
Range("h1").EntireColumn.AutoFit
TextBox1.Value = Range("h1").Value
proportion = largeur_colonne_listview / Range("h1").Width * 1.1
Range("a:f").EntireColumn.AutoFit
ListView1.ListItems.Clear
Dim largeur_colonne_listview_1 As Integer
Dim c As Range
With Me.ListView1
With .ColumnHeaders
.Add , , Sheets(1).Range("a1").Value, Range("a1").Width * proportion
.Add , , Sheets(1).Range("b1").Value, Range("b1").Width * proportion
.Add , , Sheets(1).Range("c1").Text, Range("c1").Width * proportion
.Add , , Sheets(1).Range("d1").Text, Range("d1").Width * proportion
.Add , , Sheets(1).Range("e1").Text, Range("e1").Width * proportion
End With
.View = 3
.Gridlines = True
End With
End Sub