DataValidation. Formula1 = 'Référence autre sheet

Bonjour à tous,

Je désire faire créer une liste dans la cellule D5 - Sheets("Data").Range("D5").
La liste fait référence à des écritures dans une autre feuille - Sheets("List").Range("K15:K18")

Voici mon code:

Sub ListeClasse()
Dim ChoixClasse As String
ChoixClasse1 = Worksheets("List").Range("K15:K18")
Sheets("Data").Range("D5").Validation.Delete
Range("D5").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=" & ChoixClasse1
End Sub

Comment faire pour créer une formule qui réfère à un Range d'un autre onglet (voir caractères gras/souligné) ?

Merci beaucoup pour votre aide!