Bug Excel liste déroulante

Bonjour,

J'ai un bug sur l'un des PC de mes utilisateurs... Ce bug est généré sur une colonne où il y a une liste déroulante qui se génère en fonction de ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo 0
If Not Application.Intersect(Target, Range("R2:R9000")) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Application.ReferenceStyle = xlA1
Dim Tout_Manager As Range, Ligne_Liste As Integer, Liste As Worksheet
Ligne_Liste = Sheets("Liste_BELLINI").Range("X1000").End(xlUp).Row

With Sheets("Liste_BELLINI")
    Set Tout_Manager = .Range(.Cells(2, 24), .Cells(Ligne_Liste, 24))
End With
   With ActiveCell.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=Liste_BELLINI!" & Tout_Manager.Address
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
Application.EnableEvents = True
End If

l'utilisateur sélectionne une cellule de cette colonne et ce message apparaît :

"Nom déjà utilisé

Le nom ne doit pas ressembler à une référence.

Ancien nom : _xlfn.DAYS

Nouveau nom : "

L'erreur se produit sur un pc sur excel 2010 win 7 et non sur un 2016 win 10 ...

Sauriez-vous d'où vient le problème ?

Merci à vous .

R@g