Dranreb,
SVP, je vous en prie d'être tolérant, ça fait juste quelques mois que j'ai commencé le vba.
Voici les modifications que j'ai apporté, mais toujours un message d'erreur :
Option Explicit
Private Sub Worksheet_Activate()
Dim Données As Collection, Soc As SsGr, TTrv(), LMax As Long...