Private Sub ld_service_Change()
Dim plg As Range
Select Case f_gestion_contacts.ld_service.Value
'Attention : sensibles à la casse
'Feuille paramètres : l_services
'ATELIER 'BE 'COMPTA FABR. 'R&D
Case "ATELIER"
Set plg = Range("l_tut_atelier")
Case "BE"
Set plg = Range("l_tut_be")
Case "COMPTA"
Set plg = Range("l_tut_compta")
Case "FABR."
Set plg = Range("l_tut_fabr").Value
Case "R&D"
Set plg = Range("l_tut_rd").Value
End Select
With f_gestion_contacts.ld_choix_tuteur
If Not plg Is Nothing Then
Dim c As Range
For Each c In plg.Columns(1).Cells
.AddItem c
.List(.ListCount - 1, 1) = c(1, 2) & " " & c(1, 3)
Next
End If
End With
End Sub