Macro Condition Nom d'onglet

Sub Recap()
 Dim Onglet As Worksheet
 Dim LigneVide As Long, LigneFin As Long
 For Each Onglet In ThisWorkbook.Worksheets
  If Onglet.Name <> "Recap" Then
    LigneFin = Onglet.Range("A" & Rows.Count).End(xlUp).Row
    With Sheets("Recap")
     LigneVide = .Range("B" & Rows.Count).End(xlUp).Row + 1
     Onglet.Range("A2:D" & LigneFin).Copy Destination:=.Range("F" & LigneVide)
    .Range("B" & LigneVide) = Split(Onglet.Name, "_")(0)
    .Range("C" & LigneVide) = Split(Onglet.Name, "_")(1)
    .Range("D" & LigneVide) = Split(Onglet.Name, "_")(2)
    .Range("E" & LigneVide) = Split(Onglet.Name, "_")(3)
     LigneFin = .Range("F" & Rows.Count).End(xlUp).Row
    .Range("B" & LigneVide & ":E" & LigneVide).Select
    Selection.AutoFill Destination:=Range("B" & LigneVide & ":E" & LigneFin)
   End With
  End If
 Next
End Sub

Private Sub Worksheet_Activate()
Dim lig&, coldeb%, w As Worksheet, h&, s, ub As Byte, col%
Application.ScreenUpdating = False
lig = 3 '1ère ligne de restitution
coldeb = 2 '1ère colonne
Rows(lig & ":" & Rows.Count).Delete 'RAZ
For Each w In Worksheets
  If w.Name <> Me.Name Then
    With w.[A1].CurrentRegion
      h = .Rows.Count - 1
      If h Then
        .Offset(1).Resize(h).Copy Cells(lig, coldeb + 4)
        s = Split(w.Name, "_")
        ub = UBound(s)
        For col = coldeb To coldeb + IIf(ub > 3, 3, ub)
          Cells(lig, col) = s(col - coldeb)
        Next
        Cells(lig, coldeb).Resize(, 4).Copy Cells(lig, coldeb).Resize(h, 4)
        lig = lig + h
      End If
    End With
  End If
Next
End Sub