For Each Worksheet In ThisWorkbook.Worksheets
If Not IsError(Application.Match(Worksheet.Name, Onglet, 0)) Then
Worksheet.Activate
Range("a3:g57").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("conso").Select
Sheets("conso").Range("D65536").End(xlUp).Offset(1).Select
ThisWorkbook.Sheets("conso").Paste
Application.CutCopyMode = False
End If
Next