Sub CopieSemaines()
Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet, S As Worksheet
Application.ScreenUpdating = False
Set S1 = Sheets("Semaine 1"): Set S2 = Sheets("Semaine 2")
Set S3 = Sheets("Semaine 2"): Set S = Sheets("Synthese des 3 semaines")
S.Range("B2:B65536").Clear
S1.Range("C3", S1.Range("C65536").End(xlUp)).SpecialCells(xlCellTypeConstants, 2).Copy _
S.Range("B2")
S2.Range("C3", S2.Range("C65536").End(xlUp)).SpecialCells(xlCellTypeConstants, 2).Copy _
S.Range("B65536").End(xlUp)(2)
S3.Range("C3", S3.Range("C65536").End(xlUp)).SpecialCells(xlCellTypeConstants, 2).Copy _
S.Range("B65536").End(xlUp)(2)
S.Range("B2:B65536").Interior.ColorIndex = xlNone
End Sub