Sub Synthèse()
Dim n&
Dim Sh As Worksheet, Sy As Worksheet
Set Sy = Sheets("SYNTHESE")
For Each Sh In Worksheets
[color=blue] Select Case Sh.Name
Case "CR BX ERREUR", "CR CF ERREUR", "CR CP ERREUR", "CR SG ERREUR", "CR BX OK", "CR CF OK", "CR CP OK", "CR SG OK"[/color]
Sh.Cells(1, 1).CurrentRegion.Copy
n = Sy.Cells(65536, 1).End(xlUp).Row + 1
With Sy
.Activate
.Cells(n, 1).Select
.Paste
Rows(n).Delete Shift:=xlUp
End With
Application.CutCopyMode = False
[color=blue]End Select[/color]
Next
Set Sh = Nothing
Set Sy = Nothing
End Sub