Extraire l'année d'une cellule vers une variable

Bonjour et meilleurs vœux à tous pour 2019,

J'aimerai pouvoir récupérer la valeur 2018 d'une cellule située dans la feuille listes et qui s'appelle listedate, cellule M2 en fait de cette feuille.

Worksheets("listes").Range("listedate").value =.... 

Mon format cellule date est formater comme ceci 28/12/2018 08:12:59

j'aimerai récupérer l'année 2018 dans une variable, genre

anneeencours = ....

Avez vous une idée ?

Merci d'avance.

Bonjour,

Avec la fonction Year() :

Worksheets("listes").Range("listedate").Value = Year(La_Cellule_Contenant_La_Date)

Bonjour et merci pour ta réponse rapide !!!