XL 2010 Suppression d'un fichier par Vba (Résolu)

Sub a()
Dim strFilePathAndname$
strFilePathAndname = "C:\DOSSIER\Fichier.txt"
With CreateObject("Scripting.FileSystemObject")
    If .FileExists(strFilePathAndname) Then
        .DeleteFile strFilePathAndname
    End If
End With
End Sub

Sub b()
Dim strFilePathAndname$, X$
strFilePathAndname = "C:\DOSSIER\Fichier.txt"
X = Dir(strFilePathAndname)
If Not X = "" Then
Kill strFilePathAndname
End If
End Sub

strFilePathAndname = "C:\DOSSIER\Fichier.txt"

Set oF0 = oFSO.CreateTextFile("mandat_" & Now & ".txt")
            oF0.Close

           Set oF2 = oFSO.GetFile("mandat_" & Now & ".txt")
           Set Fichier2 = oF2.OpenAsTextStream(ForAppending)

Sub testOK()
Dim objFSO, strPath$, Fichier2 As Object
strPath = "C:\DOSSIER\SOUSDOSSIER\"
Set oFSO = CreateObject("Scripting.FileSystemObject")
NomFic = "mandat_" & Format(VBA.Now, "ddmmyyyy_hhmmss.txt")
'ligne pour test
MsgBox NomFic
Set Fichier2 = oFSO.CreateTextFile(strPath & NomFic, True)
Fichier2.Close
Kill oFSO.GetAbsolutePathName(strPath & NomFic)
End Sub

FichiersAOuvrir = Application.GetOpenFilename(, , , , True)

           If IsArray(FichiersAOuvrir) Then

           For i = LBound(FichiersAOuvrir, 1) To UBound(FichiersAOuvrir, 1)

            Set oFSO = New Scripting.FileSystemObject

            Set Fichier1 = oFSO.GetFile(FichiersAOuvrir(i))

            Set oF0 = oFSO.CreateTextFile("mandat_" & Now & ".txt")
            oF0.Close

            Set oF2 = oFSO.GetFile("mandat_" & Now & ".txt")
         ***NomFic2 = = oFSO.GetFile("mandat_" & Now & ".txt")***
            Set Fichier2 = oF2.OpenAsTextStream(ForAppending)
           
            Set Fichier1 = oFSO.OpenTextFile(FichiersAOuvrir(i), 1)

            While Not Fichier1.AtEndOfStream
                   StrLigne = Fichier1.ReadLine
                   Fichier2.WriteLine StrLigne
            Wend

           next (i)

           end if

            Close Fichier1.Close
            Close Fichier2.Close
           
           ***Kill NomFic2***