Copier coller dernirere cellule non vide

Bonjour,

je possède un fichier avec 2 feuille que je ne peux malheureusement pas inserer. "Risque" et "Synthèse"

Je cherche une macro me permettant de copier la dernière cellule NON vide de la colonne Y dans la feuille "Risque" et la coller dans la cellule A1 de la feuille "Synthèse"

merci de votre aide :)

Bonjour,

Facilement trouvable avec un minimum de recherche...

S'il n'y a pas de formules renvoyant "" (vide) en colonne Y :

With WorkSheets("Risque") '
 DerLig =.Range("Y" & Rows.Count).End(xlUp).Row ' dernière ligne utilisée colonne Y
 WorkSheets("Synthèse").range("A1").Value = .Range("Y" & DerLig).Value
End With

A+

Merci pour ta réponse :)