XL 2013 Valeurs en double dans combobox

Sub autoriser(Utilisateur As String)

Dim Col As Byte, i As Byte, lig As Integer



With Sheets("Autorisation") 'dans la feuille paramétrage

    'comme on va boucler de la colonne 4 à la dernière colonne, on stocke le n° de la dern colonne :

    Col = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column

    'on cherche colonne A le nom d'utilisateur saisi et on stocke son num de ligne

    lig = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole).Row

   UF_Entrées.TB_Magasin.Clear

    UF_Sorties.TB_Magasin.Clear

    Transfer.ComboBox1.Clear

    For i = 3 To Col

        If UCase(.Cells(lig, i)) = "X" Then 'si on trouve un "X" dans la cellule

         UF_Entrées.TB_Magasin.AddItem .Cells(1, i).Value

           UF_Sorties.TB_Magasin.AddItem .Cells(1, i).Value

           Transfer.ComboBox1.AddItem .Cells(1, i).Value

        End If

    Next i

End With

End Sub