Sub Convert()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Fichier As Variant
'Recherche du fichier
Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
If Fichier <> False Then 'Si on n'a pas cliqué sur "Annuler"
Workbooks.Open Filename:=Fichier 'Ouverture du fichier
NomFichier = Dir(Fichier) 'Nom du fichier sans le chemin
With Workbooks(NomFichier) 'Avec le fichier que l'on vient d'ouvrir
'Copie de l'onglet Data
Worksheets("Data").Activate
Worksheets("Data").Range("A2:BB1000").Select
'Copie de la sélection dans le fichier actuel
Selection.Copy ThisWorkbook.Sheets("DATA").Range("A2").Value
'Copie de l'onglet Toto
Worksheets("Toto").Activate
Worksheets("Toto").Range("B6:B505").Select
Selection.Copy ThisWorkbook.Sheets("Toto").Range("B6").Value
etc...
Application.DisplayAlerts = True
End If
End Sub