Tableau récapitulatif

Option Explicit

Sub Regroupe()
    Dim Sh As Worksheet

    testme
    With Sheets("RECAP")
        .Cells.ClearContents
        Sheets(2).Range("1:1").Copy .Range("A1")
    End With
    For Each Sh In ActiveWorkbook.Sheets
        If Sh.Name <> "RECAP" Then
            Sh.Range("A2:J" & Sh.Range("A" & Rows.Count).End(xlUp).Row).Copy Sheets("RECAP").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        End If
    Next Sh

End Sub

Private Sub testme()
    If WorksheetExists("RECAP", ActiveWorkbook) Then
    'do nothing
    Else
        ActiveWorkbook.Worksheets.Add(Before:=Sheets(1)).Name = "RECAP"

    End If
End Sub

Function WorksheetExists(SheetName As String, _
                         Optional WhichBook As Workbook) As Boolean
    'from Chip Pearson
    Dim WB As Workbook
    Set WB = IIf(WhichBook Is Nothing, ThisWorkbook, WhichBook)
    On Error Resume Next
    WorksheetExists = CBool(Len(WB.Worksheets(SheetName).Name) > 0)
End Function