Résultat macro sur une autre page

Bonjour a tous,

Après avoir reçu l'aide de l'un d'entre vous j'ai pu modifier une macro pour avoir le résultat que je voulais.

Maintenant j'aimerais pouvoir avoir le résultat non pas sur la même page (listing) que les données mais sur une autre page (déjà créée-données)

Quelqu'un peut il m'aiguiller?

Je vous joins le fichier.

Merci

Bonjour,

Remplace la macro de la feuille Listing par celle-ci

Sub sansdoublonstrie()
    With Sheets("listing")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To dl
            .Cells(i, 1) = Trim(.Cells(i, 1))
        Next i
        .Range("A1").Resize(dl, 2).Sort key1:=.Range("A1"), order1:=xlAscending, key2:=.Range("B1"), order2:=xlAscending, Header:=xlYes
        lr = 4
        nomencours = ""
        For i = 2 To dl
            If .Cells(i, 1) <> nomencours Then
                lr = lr + 1
                lin = 2
                nomencours = .Cells(i, 1)
                Sheets("Données").Cells(lin, lr) = nomencours
            End If
            lin = lin + 1
            Sheets("Données").Cells(lin, lr) = .Cells(i, 2)
        Next i
    End With
End Sub

Merci beaucoup