re
Essaie comme ceci :
Private Sub UserForm_Activate()
Dim Ensemblepro As Range
Set Ensemblepro = Sheets("Projet").Range("C2")
If projet.Codeprojet.ListCount = 0 Then
For y = 0 To 15
If Ensemblepro.Offset(y, 0) <> "" Then Codeprojet.AddItem Ensemblepro.Offset(y, 0)
Next
End If
End Sub
Tu peux également essayer ce code qui, si j'ai bien compris ce que tu fais, est plus approprié
Private Sub UserForm_Initialize()
Dim Ensemblepro As Range, cel as range
Set Ensemblepro = Sheets("Projet").Range("C2:C" & Sheets("Projet").Range("C" & Sheets("Projet").Rows.Count).End(xlUp).Row)
If projet.Codeprojet.ListCount = 0 Then
For Each cel In Ensemblepro
If cel <> "" Then Codeprojet.AddItem cel
Next
End If
End Sub
Si ok, clique sur le v vert à coté du bouton Editer pour cloturer le fil lors de ta réponse
Cordialement