Sub Copie_données()
' Copie des données depuis le fichier Adresses erronées 200902.xls
Dim Nom As String, wb As Workbook
Nom = Application.GetOpenFilename(filefilter:="Fichier Excel (*.xls),*.xls")
If Nom = "" Then
MsgBox "Aucun Fichier Sélectionné", vbOKOnly + vbCritical, "Intégration non réalisée"
Exit Sub
Else
Workbooks.Open Filename:=Nom
End If
Set wb = ActiveWorkbook
wb.Activate 'mais il est déjà activé, ensuite tu utilises la variable wb comme un objet "classeur"
Sheets("Email").Select
Sheets("Email").Copy After:=Workbooks("Adresses erronées_macro.xls").Sheets("Feuil1")
Sheets("Feuil1").Activate
'UserForm1.Show
End Sub