Regrouper les données de plusieurs onglets sur un seul

Merci pour ton retour,

J'aimerais que mes données soient importées uniquement si il y en a. si aucune donnée n'existe sous mes titres de colonne (OF Début, Date Début, Heure Début, OF Fin, etc..) alors rien n'est importé. Sinon si il y a des donnée alors oui les données doivent apparaître en cliquant sur "Importer".

D'accord. je regarde ce qu'on me dira pour la répartition de la charge sur l'autre forum.

Merci

A+

Jan14 a écrit :

J'aimerais que mes données soient importées uniquement si il y en a. si aucune donnée n'existe sous mes titres de colonne (OF Début, Date Début, Heure Début, OF Fin, etc..) alors rien n'est importé. Sinon si il y a des donnée alors oui les données doivent apparaître en cliquant sur "Importer".

Voici le code aménagé

Sub regrouper()
mdp = "xxxx"
ActiveSheet.Unprotect Password:=mdp
Application.ScreenUpdating = False

Range("A1").CurrentRegion.Offset(1, 0).Clear
For Each feuille In Worksheets
    With feuille
        If .Name <> ActiveSheet.Name And .Name <> "Accueil" Then
            Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
            der = .Range("A" & Rows.Count).End(xlUp).Row
            If der > 2 Then
                .Range(.Cells(2, "A"), .Cells(der, "F")).Copy
                ActiveSheet.Paste
            End If
        End If
    End With
Next
Cells(1, 1).Select

Application.ScreenUpdating = True
ActiveSheet.Protect Password:=mdp, DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub