Re : Copier plusieurs feuilles en dernière position vers autre classeur
C'est tout bon j'ai trouvé:
...[Action utilisateur]...
For Each ws In Worksheets
If ws.Name Like "IW##" Then
nbsheet = Workbooks("Archive.xlsx").Sheets.Count
ws.Copy After:=Workbooks("Archive.xlsx").Sheets(nbsheet)
End If
Next ws