Private Sub Worksheet_Activate()
Dim tablo()
Me.Cells(13, 3).Resize(Application.CountA(Me.[C:C]), 3).ClearContents
For Each Sh In Sheets
If Sh.Name <> Me.Name And Sh.Name <> Feuil1.Name And Sh.Name <> Feuil2.Name And Sh.[A1] > 0 Then
ReDim Preserve tablo(2, x)
tablo(0, x) = Sh.Name
tablo(1, x) = Sh.[A1]
tablo(2, x) = Sh.[A2]
x = x + 1
End If
Next Sh
lig = Me.Cells(Rows.Count, 3).End(xlUp).Row + 1
If x = 0 Then Exit Sub
Me.Cells(lig, 3).Resize(x, 3) = Application.Transpose(tablo)
Me.Cells(lig + x + 1, 4) = Application.Sum(Me.[D13].Resize(lig + x - 12, 1))
Me.Cells(lig + x + 1, 5) = Application.Sum(Me.[E13].Resize(lig + x - 12, 1))
End Sub