Private Sub Affiche_Donnees()
Dim Ligne As Long, Poste As Long
' Affichage de la liste
With Me.lstDemandes
.Clear
For Ligne = 3 To WsBase.Range("A" & Rows.Count).End(xlUp).Row
If WsBase.Range("D" & Ligne) = "Demandeur11" Then
WsBase.Range("L" & Ligne) = WsBase.Range("A" & Ligne) & " / " & WsBase.Range("B" & Ligne)
.AddItem WsBase.Range("L" & Ligne)
ReDim Preserve TLgn(0 To Poste)
TLgn(Poste) = Ligne
Poste = Poste + 1
End If
Next Ligne
End With
End Sub