Sub copy()
supFeuille 'supression des feuilles du classeur Copie (2) de EVS.xls
ChDir 'A:'
Workbooks.Open Filename:='A:miseajour.xls'
Application.DisplayAlerts = True
For I = Sheets.Count To 1 Step -1
If Sheets(I).Name <> '1_Vierge' Or Sheets(I).Name <> '1_agent' Or Sheets(I).Name <> '1_Adresses' Then
Sheets(I).copy after:=Workbooks('Copie (2) de EVS.xls'Â'Â').Worksheets('1_Vierge'Â'Â')
End If
Next I
End Sub