Sub Worksheet_Activate()
Application.ScreenUpdating = False
Sheets("SYNTHESE").Range("A3:M1000").ClearContents ' On efface la matrice Synthèse
Lw = 3 ' Index écriture dans Synthèse
For Each sh In Worksheets ' Boucle sur chaque feuille de chaque classeur
If sh.Name <> "SYNTHESE" And sh.Name <> "Liste des IB" Then ' Pour toute page exeptées ces deux là
Derlig = Sheets(sh.Name).Range("A65500").End(xlUp).Row ' Calcul dernière ligne à exploiter
If Derlig > 2 Then ' Si <2 alors vide
For Lr = 3 To Derlig ' Pour toutes les lignes
For C = 1 To 13 ' Pour les colonnes de A à M
If Sheets(sh.Name).Cells(Lr, C) <> "" Then ' Si cellule non vide on la recopie dans Synthèse
Sheets("SYNTHESE").Cells(Lw, C) = Sheets(sh.Name).Cells(Lr, C)
End If
Next C
Lw = Lw + 1 ' La ligne étant recopiée, on incrémente l'index d'écriture
Next Lr
End If
End If
Next sh
SupDoublons
End Sub