Pour la rendre dynamique il suffit de copier dans develloppeur en feuille 1 (si tu es en feuille 1) dans une cellule vide exemple en A1 le code suivant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1] = « »
End Sub
1 « J'aime »