Je galère mais ce n'est pas de ta faute mais plutôt mon manque d'exp...
J'ai modifié le début de code afin de rendre automatique la détection de la dernière ligne des données sources :
Dim DicTit As Dictionary, L As Long, C As Long, TRés(1 To 1000, 1 To 47), Doss As SsGr, Maille As SsGr, Site...