Sub transfert()
'Macro copier plusieurs feuilles dans une seule
Dim dlgR As Integer, dlgi As Integer
Dim i As Byte
With Sheets("RECADEVS")
dlgR = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A2:E" & dlgR).ClearContents
End With
For i = 3 To Worksheets.Count
If UCase(Sheets(i).Name) <> "RECADEVS" Then
dlgR = Sheets("RECADEVS").Range("A" & Rows.Count).End(xlUp).Row
With Sheets(i)
dlgi = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A2:E" & dlgi).Copy Sheets("RECADEVS").Range("A" & dlgR + 1)
End With
End If
Next
End Sub