Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
[A1].CurrentRegion.Delete xlUp 'RAZ
With Sheets("SUMMARY").[A1].CurrentRegion
[A1].Consolidate Sources:=.Address(, , xlR1C1, External:=True), Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False 'commande Consolider
Columns(3).Resize(, .Columns.Count - 2).Cut [B1] 'couper-coller pour supprimer la 2ème colonne
End With
[A1] = "User"
End Sub