Besoin d'aide (concatenation)

Sub ConcatenationFeuilles()

'***************************************************************************************************
'ce code va copier la plage A2:A... jusqu'à DL de chaque onglet dont le nom commence par "STRUCTURE"
'et va la coller dans la première cellule vide de la colonne A de l'onglet "RECAP"
'***************************************************************************************************

Dim O As Worksheet 'déclare la variable O (Onglets)
Dim R As Worksheet 'déclare la variable R (onglet Recap)
Dim DL As Long 'déclare la variable DL (Derniere Ligne)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

Feuil10.Cells.Clear  '??
Set R = Sheets("RECAP") 'définit l'onglet R
For Each O In Sheets 'boucle sur tous les onglets O du classeur
    If Left(O.Name, 9) = "STRUCTURE" Then
        DL = O.Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée Dl de la colonne 1 (=A) de l'onglet O
        Set DEST = R.Cells(Application.Rows.Count, 1).End(xup).Offset(1, 0) 'définit la cellule de destination DEST (première cellule vide de la colonne 1 (=A) de l'onglet R)
        O.Range("A2:L" & DL).Copy DEST 'copy la plage A2:A... jusqu'à DL de l'onglet O de la boucle et la colle dans DEST
    End If 'fin de la condition
Next O 'prochain onglet de la boucle
End Sub

Sub ConcatenationFeuilles()
Dim w As Worksheet  'feuille
Dim r As Range      'plage à copier
Dim c As Range      'cellule de destination
Dim n As String     'nom des feuilles à copier
  Feuil10.Cells.Clear
  Set c = Feuil10.Range("A2")
  n = "/STRUCTURE/STRUCTURE1/STRUCTURE2/STRUCTURE3/STRUCTURE4/"
  For Each w In Worksheets
    With w
      If InStr(1, n, "/" & w.Name & "/") > 0 Then
        With .Range(.Cells(.Rows.Count, "A").End(xlUp), "L2")
          .Copy c
          Set c = c.Offset(.Rows.Count)
        End With
      End If
    End With
  Next w
End Sub