Private Sub Affiche_Employes()
Dim rng As Range, ligne As Long
With ThisWorkbook.Worksheets("Employés")
lstEmployes.Clear
For ligne = 4 To .Range("A65536").End(xlUp).Row
If .Cells(ligne, 2) <> "" Then lstEmployes.AddItem .Cells(ligne, 2) & " " & .Cells(ligne, 3)
Next ligne
End With
End Sub