Private Sub CommandButton1_Click()
Dim FichierCSV$, FichierXL$, dl&
FichierCSV = Application.GetOpenFilename("CSV Files (*.CSV), *.csv")
Workbooks.OpenText FichierCSV, Local:=True
With ThisWorkbook.Sheets("Tache prévu")
.Cells.Clear
ActiveWorkbook.Sheets(1).Range("A1").CurrentRegion.Copy .Range("A1")
End With
ActiveWorkbook.Close False
FichierXL = Application.GetOpenFilename("Fichier Excel (*.xls), *.xls")
Workbooks.Open FichierXL
With ThisWorkbook.Sheets("Tache réalisé")
.Cells.Clear
ActiveWorkbook.Sheets(1).Range("A1").CurrentRegion.Copy .Range("A1")
End With
ActiveWorkbook.Close False
End Sub