Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Sh.Cells(1, 1).Value = "Dernière modification : " & Now
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Sh.Cells(1, 1).Value = "Dernière modification : " & Now
End Sub