Sub transfert()
'Macro Dan pour CecileCosma - 20/09/12
Dim dlgR, dlgi As Double
Dim i As Byte
Application.ScreenUpdating = False
Sheets("Recap").Select
Rows("2:65536").Delete Shift:=xlUp
On Error GoTo FIN
For i = 1 To Worksheets.Count
If UCase(Sheets(i).Name) <> "RECAP" Then
dlgR = Sheets("RECAP").Range("a" & Rows.Count).End(xlUp).Row
With Sheets(i)
dlgi = .Range("a" & Rows.Count).End(xlUp).Row
.Range("a2:j" & dlgi).Copy Sheets("RECAP").Range("a" & dlgR + 1)
End With
End If
Next
FIN:
End Sub