Insertion dans une macro

Bonjour a tous

j'ai cette macro qui Importe mes 60 fichiers .txt dans un nouveau classeur.

Sub CombineTextFiles()
    Dim xFilesToOpen As Variant
    Dim i As Integer
    Dim xWb As Workbook
    Dim xTempWb As Workbook
    Dim xDelimiter As String
    Dim xScreen As Boolean
    On Error GoTo ErrHandler
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xDelimiter = ":"
    xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Sélectionner vos fichiers", , True)
    If TypeName(xFilesToOpen) = "Boolean" Then
        MsgBox "AUCUN FICHIER SELECTIONNER", , "Excel"
        GoTo ExitHandler
    End If   

    Set xWb = ThisWorkbook
    i = 1
    Set xTempWb = Workbooks.Open(xFilesToOpen(i))
    xTempWb.Sheets(1).Copy
    Set xWb = Application.ActiveWorkbook
    xTempWb.Close False
    xWb.Worksheets(i).Columns("A:A").TextToColumns _
      Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, _
      Tab:=False, Semicolon:=False, _
      Comma:=False, Space:=False, _
      Other:=True, OtherChar:="|"
    Do While i < UBound(xFilesToOpen)
        i = i + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(i))
        With xWb
            xTempWb.Sheets(1).Move After:=.Sheets(.Sheets.Count)
            .Worksheets(i).Columns("A:A").TextToColumns _
              Destination:=Range("A1"), DataType:=xlDelimited, _
              TextQualifier:=xlDoubleQuote, _
              ConsecutiveDelimiter:=False, _
              Tab:=True, Semicolon:=False, _
              Comma:=False, Space:=False, _
              Other:=False, OtherChar:=xDelimiter
                      End With
    Loop

ExitHandler:
    Application.ScreenUpdating = xScreen
    Set xWb = Nothing
    Set xTempWb = Nothing

    Exit Sub

ErrHandler:
    MsgBox Err.Description, , "Excel"
    Resume ExitHandler

End Sub

Je précise que cette macro n'est pas de moi

je voudrais pouvoir insérer une macro ( celle-ci):

Sub NETOYAGE()

     Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.Range("$A$1:$I$260678").RemoveDuplicates Columns:=7, Header:= _
        xlYes
End Sub

mais je ne sait pas ou la positionner.

Merci de votre aide

Bonjour,

Sans pouvoir tester ...

Un essai ...

 ...
  ...
End With
call NETOYAGE
Loop
 ...
  ...

ric

Merci

Je l'avais mis avant le End with.