aide sur mon fichier source

[Bmichel59]

Bonjour , voila je dois prendre des données externe dans un fichier xls , cela se fait mais apres je dois sauver ses meme donnees modifier et la celui ne peut pas le faire car il me reponds pas d'acces sur le fichier car celui-ci n'est pas à le fermer , quelle ligne de programme me permetterai de fermer cela
voici le source .
Public Sub Worksheet_Activate()
If charge = vide Then
charge = False
Cells.Select
Selection.ClearContents
With ActiveSheet.QueryTables.Add(Connection:=Array( _
'OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password='''';User ID=Admin;Data Source=C:\\michel\\Liste des tâches.xls;Mode=Share Deny Write;Exte' _
, _
'nded Properties=''HDR=NO;'';Jet OLEDB:System database='''';Jet OLEDB:Registry Path='''';Jet OLEDB😀atabase Password='''';Jet OLEDB:Engin' _
, _
'e Type=35;Jet OLEDB😀atabase Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:N' _
, _
'ew Database Password='''';Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB😀on't Copy Locale on C' _
, _
'ompact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False' _
), Destination:=Range('A1'))
.CommandType = xlCmdTable
.CommandText = Array('Feuil1$')
.Name = 'Liste des tâches'
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = 'C:\\michel\\Liste des tâches.xls'
.Refresh BackgroundQuery:=False

End With

End If
End Sub

je parle du fichier liste de taches

merci