Private Sub UserForm_Initialize()
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
End If 'Là c'est juste pour le choix si 2 ou + identiques <<<<<<<< tu n'avais pas mis End If
Next N
End With
With Worksheets("data")
dlg = .Range("a20").End(xlUp).Row
For k = 1 To dlg
Box10.AddItem .Cells(k, 1).Value
Next k
End With
'InitCombo1
End Sub