Macro avec pour critère le nom de la feuille

VBA
4

Re,
Teste avec cette macro,
Comme tous les onglets à récupérer ont en commun en cellule A1 le mot « Salarié »
il faut se pencher sur cette option

Sub Bouton1_Cliquer()
  Application.ScreenUpdating = False
    derLigDest = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
    If derLigDest > 1 Then Range("2:" & derLigDest).Delete
    For Each sh In ActiveWorkbook.Worksheets
        derLigDest = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1
         If sh.Name <> "Region SUD" Then
          If sh.Range("A1").Value = "Salarié" Then
            derLigSource = sh.Range("A" & Rows.Count).End(xlUp).Row
            sh.Range("A2:F" & derLigSource).Copy Destination:=ActiveSheet.Range("A" & derLigDest)
          End If
        End If
    Next sh
End Sub