Le code à modifier dans CommandButton1
Private Sub CommandButton1_Click()
Dim plage As Range, a, i&
Dim Colonnes
Colonnes = Array(1, 3, 4, 5, 6, 7, 8) 'colonnes à afficher
Set plage = Range("A3:H" & Cells(Cells.Rows.Count, "B").End(xlUp).Row)
With UserForm1.ListBox1
.ColumnCount =...