Private Sub CommandButton1_Click()
Dim WkName As String
MonFicHier = "C:\Users\.......\XLD\Daig a 1 an_3.xlsm" 'ComboBox1.Value"
'claSSeur = Range("a2").CurrentRegion.Find(what:=MonFicHier).Offset(0, 3).Value
Workbooks.Open MonFicHier
WkName = ActiveWorkbook.Name
Unload Me
ActiveSheet.Copy after:=ThisWorkbook.Sheets(1)
ActiveSheet.Name = "Export analytique" & Format(Date, "yyyymmdd") & Format(Time, "hhmmss")
Workbooks(WkName).Close False
End Sub