Salut Bebere , JC de loriant, Charly2, Dull et le Forum,
Je crois avoir trouvé la solution
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ActiveFeuille As String
ActiveFeuille = ActiveSheet.Name
ActiveCell.Range('A1').Name = 'Valeur_' & ActiveFeuille & '_' & Year(Date)
End Sub
Merci pour votre aide, elle m'a aidé de trouver une solution.
Si vous avez une autre sujétion, elle sera la bienvenue.
Au revoir à tous Modus57