Sub CopierFeuille()
Dim fichier$, nomfeuil$
fichier = "Y:\Services_Generaux\Contacts\base_generale.xlsx"
nomfeuil = "Base"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.Sheets(nomfeuil).Name = nomfeuil & "µ"
With Workbooks.Open(fichier)
.Sheets(nomfeuil).Copy Before:=ThisWorkbook.Sheets(1) 'en 1ère position
.Close False
End With
ThisWorkbook.Sheets(nomfeuil & "µ").Delete
End Sub