Bonjour Ooo_Delphine, James,
Dans la Sub Before_DoubleClick(), supprimer le Target.value=""
Dans la Sub CommandButton1_Click(), remplacer
ActiveCell = Left(ValeurARetourner, Len(ValeurARetourner) - 3)
Par
ActiveCell = IIf(ActiveCell = "", "", ActiveCell & "/") & Left(ValeurARetourner, Len(ValeurARetourner) - 3)