Sub MAJ()
Dim sh As Worksheet, col&
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "Synthèse" Then
With Sheets("Synthèse")
col = Application.Match(sh.Name, .[2:2], 0)
sh.[L8:L17].Copy: .Cells(3, col).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
sh.[L19:L22].Copy: .Cells(13, col).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With
End If
Next
End Sub