Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Me.AutoFilterMode = False
Cells.Clear 'RAZ
Feuil1.[A1].CurrentRegion.Copy [A1]
With [A1].CurrentRegion
If .Rows.Count = 1 Then Exit Sub
.Cells(2, 12) = "Regroupement"
If .Rows.Count > 2 Then _
.Cells(3, 12).Resize(.Rows.Count - 2) = "A regrouper"
.Cells(2, 15) = Application.Sum(.Columns(10))
.Cells(2, 16) = Application.Sum(.Columns(11))
.Cells(2, 17) = .Cells(.Rows.Count, 7)
End With
End Sub