XL 2013 Interaction Listbox et Option buton

[Tradman]

Bonjour à tous,
Je ne sais pas si j'ai simplement un manque d'imagination ou si j'ai un manque de connaissance, mais toujours est-il que je galère pour un problème en apparence simple !

Voici le problème :
Dans un userform, j'ai un listbox qui contient une liste d'employé. Afin de m'éviter d'avoir à saisir chacun des employés un a un, j'ai également un optionbutton qui une fois coché boucle sur tous les employés sans avoir à les cochés dans la liste. En fait, en "cochant" ce bouton, l'ensemble des sélections s'efface et mon programme boucle sur l'ensemble des employés par défaut.
Ce que j'aimerais faire est que dès que je sélectionne un nom dans la listbox, le crochet s'efface de l'optionbutton. Il faut également prendre en compte que si je "déselectionne" l'ensemble des noms un a un dans la listbox le crochet doit se replacer.

Voici ce que j'ai comme code, mais ça ne fonctionne pas

Private Sub lbEmploye_Click()

    Dim n As Integer, w As Integer
   
    'Vérifier si on a sélectionné un employé
    n = 0
    w = 0
    For n = 0 To lbEmploye.ListCount - 1
        If lbEmploye.Selected(n) Then
            w = 1
        Else
        End If
    Next n
   
    ' Si on a un employé de sélectionner on coche l'option button "tous les employés"
    If w = 1 Then
        obTousEmployes = False
    Else
        obTousEmployes = True
    End If
       
   
End Sub

Private Sub obTousEmployes_Click()
   
    Dim n As Integer
   
    'Effacer la liste des employés que l'on a déjà sélectionné
    n = 0
    For n = 0 To lbEmploye.ListCount - 1
        If lbEmploye.Selected(n) Then
            lbEmploye.Selected(n) = False
        Else
        End If
    Next n

End Sub