Re-bonsoir Alex,
Le code ci-dessous devrait répondre à ton problème :
Sub Bilan()
Dim TabTemp As Variant
Dim F As Byte
Dim NF As Byte
Dim L As Long
'Effacer l'ancien "Bilan"
On Error Resume Next
Application.DisplayAlerts = False
Sheets("Bilan").Delete
Application.DisplayAlerts = True
'Créer la nouvelle feuille "Bilan"
NF = Worksheets.Count
Sheets.Add After:=Sheets(NF)
ActiveSheet.Name = "Bilan"
'Pour chaque feuille
For F = 1 To NF
'Copie les valeurs de la feuille
With Sheets(F)
TabTemp = .Range(.Cells(1, 1), .Cells(1, 1).SpecialCells(xlLastCell)).Value
End With
'Colle les valeurs dans la feuille bilan
With Sheets("Bilan")
L = IIf(F > 1, .Cells(1, 1).SpecialCells(xlLastCell).Row + 1, 1)
.Range(.Cells(L, 1), Cells(L + UBound(TabTemp, 1) - 1, UBound(TabTemp, 2))).Value = TabTemp
End With
Next F
End Sub
Cordialement.
Didier_mDF