Bonjour

J'ai besoin de regrouper plusieurs feuilles dans une seule.

J'utilise ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub regroupement()
Dim Lg&, V_feuille As Worksheet, f As Worksheet
        Set f = Sheets("Récap")
    f.Range("A1:Z" & f.[A65000].End(xlUp).Row).ClearContents    'effacer feuille "Récap"
 
For Each V_feuille In Worksheets
    If V_feuille.Name <> f.Name And V_feuille.Name <> "ludovic" Then         'feuilles à ne pas traiter
        Lg = V_feuille.Range("A" & Rows.Count).End(xlUp).Row
        V_feuille.Range("A1:Z" & Lg).Copy Destination:= _
        f.Range("A" & Rows.Count).End(xlUp)(2)   'copier à partir de la colonne A
    End If
Next
End Sub
J'ai 2 questions :
Comment est-ce possible de prendre la colonne B (plutot que la A) dans le comptage de la dernière ligne non vide (en règle générale dans la dernière ligne la colonne A est vide, mais pas les colonnes B et C)
Est-il possible d'intégrer le nom de l'onglet avant le copiage des lignes afin d'identifier la feuille d'origine dans la feuille "Récap"

Merci d'avance