Macro pour consolider des données

bonjour

je dois consolider mes deux fichiers "suivi de la hotline_XX" pour l"onglet S1 dans le fichier conso sur l"onglet S1... je dois faire de même sur tous les onglets de mon fichier S2, S3 jusqu'à S24...

Quel code VBA me permet de réaliser la consolidation que je souhaite? Merci

Salut ,

essai avec ça 1st Go !!

Sub consolide()

ChDir ActiveWorkbook.Path

Set classeurMaitre = ActiveWorkbook

sup

compteur = 1

nf = Dir("*.xls")

Do While nf <> ""

If nf <> classeurMaitre.Name Then

Workbooks.Open Filename:=nf

For k = 1 To Sheets.Count

Sheets(k).Copy After:=classeurMaitre.Sheets(classeurMaitre.Sheets.Count)

classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name = "S" & compteur

compteur = compteur + 1

Next k

Workbooks(nf).Close False

End If

nf = Dir

Loop

End Sub

Sub sup()

Application.DisplayAlerts = False

If Sheets.Count > 1 Then

Sheets("Accueil").Move before:=Sheets(1)

Sheets(2).Select

For i = 2 To Sheets.Count

ActiveSheet.Delete

Next i

End If

End Sub