Option Explicit
Sub Consolider()
Dim RefSources(1 To 2) As String, zone As Range
Application.ScreenUpdating = False
Set zone = Sheets("Saisie 1").Range("D3").CurrentRegion
RefSources(1) = zone.Address(, , xlR1C1, True)
Set zone = Sheets("Saisie 2").Range("D3").CurrentRegion
RefSources(2) = zone.Address(, , xlR1C1, True)
With Sheets("Synthèses")
.Columns("b:d").Clear
.Range("B2").Consolidate Sources:=RefSources, _
Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
Columns("B:D").EntireColumn.AutoFit
.Range("B2").CurrentRegion.Sort key1:=Columns("b"), Header:=xlYes
.Activate
End With
MsgBox "Consolidation terminée"
Application.ScreenUpdating = True
End Sub