Sub consolide()
Dim tablo() As String
tablo() = Split(ActiveWorkbook.Path, "\")
Dossier = tablo(UBound(tablo))
ChDir ActiveWorkbook.Path
Set classeurMaitre = ActiveWorkbook
sup
compteur = 1
nf = Dir(ThisWorkbook.Path & "\*.xls")
Do While nf <> ""
If nf <> classeurMaitre.Name Then
Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & nf
For k = 1 To Sheets.Count
Sheets(k).Copy After:=classeurMaitre.Sheets(classeurMaitre.Sheets.Count)
classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name = Mid(nf, 1, Len(nf) - 13)
compteur = compteur + 1
Next k
Workbooks(nf).Close False
End If
nf = Dir
Loop
classeurMaitre.SaveAs ThisWorkbook.Path & "\" & Dossier]& ".xlsx", FileFormat:=51
End Sub