Dispatcher en plusieurs feuille vba

Sub Macro1()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
Dim d As Object 'déclare la variable d (Dictionnaire)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim tp As Variant 'déclare la variable tp (Tableau Temporaire)
Dim i As Integer 'déclare la variable i (Incrément)
Dim o As Object 'déclare la variable o (Onglet)

With Sheets("données") 'prend en compte l'onglet "données"
    dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne édité  dl de la colonne 1 (=A)
    Set pl = .Range("A1:A" & dl) 'définit la plage pl
End With 'fin de la prise en compte de l'onglet "données"
Set d = CreateObject("Scripting.Dictionary") 'définit le dictionnaire d
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
    d(cel.Value) = "" 'alimente le dictionnaire
Next cel 'prochaine cellule de la boucle
tp = d.keys 'récupère le dictionnaire sans doublon dans le tableau temporaire tp
For i = 0 To UBound(tp) 'boucle sur tous les élément unique du tableau tp
    On Error Resume Next 'gestion des erreurs, en cas d'erreur, passe à la ligne suivante
    Set o = Sheets(CStr(tp(i))) 'définit l'onglet o (génère une erreur si cet onglet n'existe pas)
    If Err <> 0 Then 'condition : si une erreur a été générée
        Err = 0 'annule l'erreur
        Sheets.Add Before:=Sheets(1) 'ajoute un nouvel onglet en première position
        Set o = ActiveSheet 'définit l'onglet o
        o.Name = CStr(tp(i)) 'nomme l'onglet
    End If 'fin de la condition
    On Error GoTo 0 'annule la gestion des erreurs
    o.Cells.Clear 'efface les anciennes données de l'onglet 0 (à adapter)
    Sheets("données").Range("A1").AutoFilter 'lance le filtre automatique
    Sheets("données").Range("A1").AutoFilter Field:=1, Criteria1:=tp(i) 'filtre la colonne A avec tp(i) comme critère
    pl.Offset(0, 1).Resize(pl.Rows.Count, 10).SpecialCells(xlCellTypeVisible).Copy o.Range("A1") 'copy les lignes filtrées dans la cellule A1 de l'onglet o
    Sheets("données").Range("A1").AutoFilter 'supprime le filtre automatique
Next i 'prochain élément du tableau i
End Sub