Bonjour,

Je suis désolé si le sujet existe déjà mais je ne l'ai pas trouvé.

Je souhaite copier la colonne B de toute mes feuilles sauf pour ma feuille modèle sur une feuille synthèse.

Je m'explique, je réaliser un fichier de suivi d'affaires et j'aimerai pouvoir avoir un folio qui me regroupe mes informations importantes de toutes mes affaires qui correspondes à la chose suivante:

1 affaire = 1 feuille
Les informations importante sont regroupé dans ma colonne B.
Je rajoute une nouvelle feuille dès que j'ai une nouvelle affaire via une macro.

J'aimerai que sur ma feuille Synthèse les colonnes B de toutes mes feuilles sauf ma feuille Modèle soit rajouter sur ma colonne B et successivement vers la droite ( B puis C puis D, etc.)

J'ai ce codage actuellement qui me récupère toutes mes feuilles et mes les mets progressivement vers le bas ce qui ne me convient pas.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_Activate()
Dim LastLig As Long, NewLig As Long
Dim LastCol As Long, NewCol As Long
Dim Ws As Worksheet
 
Application.ScreenUpdating = False
With Worksheets("Synthese")
    .UsedRange.Clear
    NewLig = 1
    For Each Ws In ThisWorkbook.Worksheets
        If InStr("Modèle|Synthese|", Ws.Name & "|") = 0 Then   ' entre "" mettre le nom de toutes les feuilles à exclure séparés d'un |
            LastLig = Ws.Cells(Ws.Rows.Count, 1).End(xlDown).Row
            Ws.Rows("1:" & LastLig).Copy .Range("A" & NewLig)
            NewLig = NewLig + LastLig
        End If
    Next Ws
End With
End Sub
Pouvez vous m'aider?

Merci d'avance.