Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim Compteur As Integer
Dim CellCible As Range
If Sh.Name = "Accueil" Then Exit Sub
On Error Resume Next
Compteur = [CompteurFeuille] + 1
If Err.Number <> 0 Then Compteur = 1: Names.Add Name:="CompteurFeuille", RefersTo:=Compteur
On Error GoTo 0
If Not Intersect(Target, Columns(1)) Is Nothing Then
Set CellCible = Cells(Range("A65536").End(xlUp).Row + 1, Target.Column)
CellCible = "N°A" & Compteur
CellCible.Offset(0, 1) = Now
CellCible.Offset(0, 2).Activate
Names.Add Name:="CompteurFeuille", RefersTo:=Compteur
End If
End Sub