With Worksheets("ETAT")
Lig = .Range("a1000").End(xlUp).Row
For N = 4 To Lig
If .Cells(N, 12).Value = "" Then
Npr = .Cells(N, 1).Value & " " & .Cells(N, 2).Value
Nom.AddItem Npr ' BOX RESERVE NORMALEMENT JUSTE au NOm
' Là c'est juste pour le choix si 2 ou + identiques
Next N
End With