(MAC) Supprimer les doublons dans Itunes

script o
    property Les_tracks : missing value
end script

set i to 1
tell application "iTunes"
    set o's Les_tracks to selection
    if o's Les_tracks is {} then return -- aucune selection, quitte le script
    
    set total to (count o's Les_tracks)
    repeat while i < total
        tell item i of o's Les_tracks to set {titre, Lartiste} to {name, artist}
        repeat with k from (i + 1) to total --ceci va enlever tous les doublons à la suite ayant le même titre, sauf le premier
            tell item k of o's Les_tracks to set {titre2, Lartiste2, T_ID} to {name, artist, database ID}
            if titre2 is titre and Lartiste is Lartiste2 then
                tell (get first track of library playlist 1 whose database ID is T_ID)
                    set the_path to location
                    delete -- enleve de la bibliotheque
                    my delete_file(the_path) --mets le fichier dans la corbeille
                end tell
            else
                exit repeat
            end if
        end repeat
        set i to k -- mets la variable (i) à l'index de l'élément dont le titre est différent
    end repeat
end tell

on delete_file(t_file)
    try
        tell application "Finder" to delete t_file -- mets le fichier à la corbeille.
    end try
end delete_file