Problème avec script

'Dimanche
 ' Vider le contenu de la liste
    ComboBox2.Clear
 [B][COLOR=Red]   ComboBox3.Clear[/COLOR][/B]
    
    With Worksheets("Base de données")
        ' Boucle de la ligne 3 à la dernière dans la colonne A
        For lig = 3 To .Range("A" & Cells.Rows.Count).End(xlUp).Row
            nomTrouve = False
            
            ' Boucle du premier au dernier élément de la liste
            For cmb = 0 To ComboBox2.ListCount - 1
                ' Vérifier que le nom n'existe pas déjà dans la liste
                If ComboBox2.List(cmb) = .Range("A" & lig).Value Then
                    nomTrouve = True
                    Exit For
                End If
            Next cmb
            
            ' Si le nom n'est pas trouvé dans la liste, l'ajouter
            If nomTrouve = False Then
                ComboBox2.AddItem .Range("A" & lig).Value
                [B][COLOR=Red]ComboBox3.AddItem .Range("A" & lig).Value[/COLOR][/B]
              
            End If
        Next lig
    End With