Dim lig As Long
Dim plg As Range
ListBox3.ColumnWidths = "80;80;160;0;0;0;80;0;90;0;0" ' Taille des colonnes à adapter avec propriétés
Set plg = Feuil2.Range("A1").CurrentRegion ' je défini la plage
For lig = 2 To plg.Rows.Count
If plg.Cells(lig, 11) <> "P_MONT" Then ' je ne veux pas voir le poste P_MONT
With ListBox3
.AddItem plg.Cells(lig, 1) ' Ajout dans première colonne de listbox 'OF
.List(.ListCount - 1, 1) = plg.Cells(lig, 2) ' ART
.List(.ListCount - 1, 2) = plg.Cells(lig, 3) ' DESI
.List(.ListCount - 1, 3) = plg.Cells(lig, 4) ' QTE OF - non affiché
.List(.ListCount - 1, 4) = plg.Cells(lig, 5) ' N°OUT - Non affiché
.List(.ListCount - 1, 5) = plg.Cells(lig, 6) ' CADENCE - Non affichée
.List(.ListCount - 1, 6) = plg.Cells(lig, 7) ' NB OPE
.List(.ListCount - 1, 7) = plg.Cells(lig, 10) ' COVAR - Non affiché
.List(.ListCount - 1, 8) = plg.Cells(lig, 11) ' POSTE
.List(.ListCount - 1, 9) = plg.Cells(lig, 12) ' N° ALTERNA- Non affichée
'.List(.ListCount - 1, 10) = plg.Cells(lig, 13) ' N° version => pas possible 10 colonnes atteintes.
End With
End If
Next lig