Private Sub CB_feuilarticles_Click()
With UserForm1
With .CB_feuilarticles
'choix du chemin dans la lisbox
For It = 0 To .ListCount - 1
'si oui ou non la sélection est activée
If .Selected(It) = True Then <===================ici
'alors le chemin est celui choisi
Str_Chemin = .List(.ListIndex, 1)
Exit For
End If
Next It
End With
End With