bonjour
Je viens de m'apercevoir que j'ai oublié de coller le code
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Static c As Long
If IsEmpty(Cells(1, 1)) Then c = 0
c = c + 1
Cells(c, 1) = Now
Cells(c, 2) = Now - Cells(1, 1)
If c <> 1 Then Cells(c, 3) = Now - Cells(c, 1).Offset(-1, 0)
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Static c As Long
If IsEmpty(Cells(1, 1)) Then c = 0
c = c + 1
Cells(c, 1) = Now
Cells(c, 2) = Now - Cells(1, 1)
If c <> 1 Then Cells(c, 3) = Now - Cells(c, 1).Offset(-1, 0)
End Suboilà qui est réparé
Baside