Private Sub UserForm_Activate()
Dim MaList, Der As Long
With Me.ListBox1
.ColumnCount = 9
.ColumnWidths = "60pt;60pt;80pt;80pt;80pt;95pt;95pt;95pt;95pt"
End With
Der = Worksheets("bd_devis").Range("A3").End(xlDown).Row
With Worksheets("bd_devis").Range("A3:CG" & Der)
'Afficher les valeurs des cellules a3, ce3, cf3, cg3, cd3, b3, f3, j3, n3.
ListBox1.List = Application.Index(.Value, Evaluate("row(1:" & Der & ")"), Array(1, 83, 84, 85, 82, 2, 6, 10, 14))
End With
End Sub