Modification code VBA importation

Sub MAJ(fichier$, feuille$, ncol%) 'ncol est le nombre de colonnes ajoutées à droite de la colonne X
Dim t, nlig&, d As Object, i&, rest(), j&, k%
Application.ScreenUpdating = False
With Workbooks.Open(ThisWorkbook.Path & "\" & fichier).Sheets(feuille)
  t = .Range("A5:X5", .Range("D" & .Rows.Count).End(xlUp)(5))
  nlig = UBound(t)
  .Parent.Close False
End With
'---restitution du 1er tableau---
[D:D].Copy Columns(25 + ncol) 'sauvegarde la colonne D (Point Paie) en colonne auxiliaire
Range("A3:X" & Rows.Count).Delete xlUp 'RAZ
[A3].Resize(nlig, 24) = t
'---liste des Point Paie du 1er tableau---
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(t)
  If t(i, 4) <> "" Then d(t(i, 4)) = i 'repère la ligne
Next i
'---création du 2ème tableau (rest)---
t = Range("Y3", Cells(Rows.Count, 25 + ncol).End(xlUp)(3))
ReDim rest(1 To nlig, 1 To ncol)
For i = 1 To UBound(t)
  If d.Exists(t(i, ncol + 1)) Then
    j = d(t(i, ncol + 1))
    For k = 1 To ncol: rest(j, k) = t(i, k): Next k
  End If
Next i
'---restitution du 2ème tableau rest---
Columns(25 + ncol).Delete
[Y3].Resize(Rows.Count - 2, ncol).Delete xlUp 'RAZ
[Y3].Resize(nlig, ncol) = rest
'---Bordures---
Rows("3:" & Rows.Count).Borders.LineStyle = xlNone 'RAZ
For i = nlig To 1 Step -1
  If Range("D" & i + 2) <> "" Then 'dernière ligne effective
    [A3].Resize(i, 24 + ncol).Borders.Weight = xlThin
    [A3].Resize(i, 24 + ncol).Borders(xlInsideHorizontal).LineStyle = xlDot
    '[A3].Resize(i, 24 + ncol).Borders(xlInsideHorizontal).Weight = xlHairline 'si l'on préfère
    Exit For
  End If
Next i
With ActiveSheet.UsedRange: End With 'actualise les barres de défilement
End Sub

Private Sub Worksheet_Activate()
RECAP "PAIE-MENS", [A6]
RECAP "PAIE-HOR", [G6]
End Sub

Sub RECAP(feuille$, deb As Range)
Dim i&
Application.ScreenUpdating = False
deb(2).Resize(Rows.Count - deb.Row, 4).Delete xlUp 'RAZ
With Sheets(feuille)
  i = .Range("D" & .Rows.Count).End(xlUp).Row + 2
  For i = i To 3 Step -1
    If .Range("D" & i) <> "" Then 'dernière ligne effective
      .Range("Y3:Y" & i).Copy deb(2)
      .Range("J3:J" & i).Copy deb(2, 2)
      .Range("Q3:Q" & i).Copy deb(2, 3)
      .Range("T3:T" & i).Copy deb(2, 4)
      deb.Resize(i - 1, 4).Sort deb, xlAscending, Header:=xlYes 'tri
      deb(i) = "TOTAL"
      deb(i, 2).Resize(, 3) = "=SUM(R[" & 2 - i & "]C:R[-1]C)"
      deb(i).Resize(, 4).Interior.ColorIndex = 45 'brun
      deb(i).Resize(, 4).Borders.Weight = xlThin
      Exit For
    End If
  Next
End With
End Sub

Option Compare Text 'la casse est ignorée (sécurité)

Sub RECAP(feuille$, deb As Range)
Dim i&, j&, k&, n&
Application.ScreenUpdating = False
deb(2).Resize(Rows.Count - deb.Row, 4).Delete xlUp 'RAZ
With Sheets(feuille)
  i = .Range("D" & .Rows.Count).End(xlUp).Row + 2
  For i = i To 3 Step -1
    If .Range("D" & i) <> "" Then 'dernière ligne effective
      .Range("Y3:Y" & i).Copy deb(2)
      .Range("J3:J" & i).Copy deb(2, 2)
      .Range("Q3:Q" & i).Copy deb(2, 3)
      .Range("T3:T" & i).Copy deb(2, 4)
      deb.Resize(i - 1, 4).Sort deb, xlAscending, Header:=xlYes 'tri
      '---regroupement des doublons EOTP---
      For j = 2 To i - 1
        For k = j + 1 To i - 1
          If deb(k) <> deb(j) Then Exit For
          deb(j, 2) = deb(j, 2) + deb(k, 2)
          deb(j, 3) = deb(j, 3) + deb(k, 3)
          deb(j, 4) = deb(j, 4) + deb(k, 4)
          deb(k) = "zzzz" 'repère la cellule doublon EOTP
          n = n + 1 'comptage
        Next k
        j = k - 1
      Next j
      deb.Resize(i - 1, 4).Sort deb, Header:=xlYes 'nouveau tri pour regrouper et accélérer la suppression
      '---ligne du TOTAL---
      deb(i) = "TOTAL"
      deb(i, 2).Resize(, 3) = "=SUM(R[" & 2 - i & "]C:R[-1]C)"
      deb(i).Resize(, 4).Interior.ColorIndex = 45 'brun
      deb(i).Resize(, 4).Borders.Weight = xlThin
      '---suppression des cellules EOTP repérées---
      If n Then deb.EntireColumn.Find("zzzz", , xlValues).Resize(n, 4).Delete xlUp
      Exit For
    End If
  Next i
End With
End Sub