Dim Ctrl As Shape
...
If Not Rs.EOF Then
Do While Not Rs.EOF
ActiveSheet.lst_directeurmiss.AddItem Rs.Fields(0)
ActiveSheet.lst_respaff.AddItem Rs.Fields(0)
For Each Ctrl In ActiveSheet.Shapes
If Ctrl.Name Like "lst_perso*" Then
Ctrl.AddItem Rs.Fields(0)
End If
Next
Rs.MoveNext
Loop