Bonjour,
J'ai testé la macro, je pense avoir fais une erreur car j'ai une erreur d'exécution 9
Voici comment j'ai intégré votre solution :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim deb As Date, fin As Date, t1, t2, tablo, I&, n&, Ws As Worksheet, Col As Byte
With Sh
If...