[Aloha]

Excuse si je persiste.

Maintenant Excel trouve un problème dans:

For n = 4 To Workbook.Sheets.Count

Le code en entier:

Sub Copier_toutes_les_donnees_dans_une_feuille()
'
' Copier_toutes_les_donnees_dans_une_feuille Macro
' Macro enregistrée le 31/05/2007 par FMPO
'
Application.Calculation = xlCalculationManual

For n = 4 To Workbook.Sheets.Count

Sheets(n).Range("K4:W" & Sheets(n).Range("K65000").End(xlUp).Row).Copy
Sheets("Tout").Select
Range("B" & Range("B65000").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next n
End Sub


Aloha