Macro avec plusieurs conditions et boucles

Option Explicit
'-----------
Sub selectionner_motif()
'appel macro reporter frais en fonction de la feuille
reporter_frais ActiveSheet.Name
End Sub
'-----------
Sub reporter_frais(feuille)
Dim Derlig As Byte, T_donnees, T_frais
Dim D_motif As Object, Motif As String, Concat As String, Ligne As Byte
Dim cptr As Byte

'------------------------------------initialisations
    Application.ScreenUpdating = False 'fige défilement de l'écran
    Set D_motif = CreateObject("scripting.dictionary") 'création d'un dictionnaire
    Sheets(feuille).Range("G5:G50").ClearContents 'nettoyage colonne G "frais"
   
    With Sheets("B")
        'mémorisations des données et frais
        Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
        T_donnees = .Range("A6:D" & Derlig)
       T_frais = Application.Transpose(.Range("U6:U" & Derlig))
    End With
    With Sheets(feuille)
        'création d'un couple données concaténées, ligne)
        Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
        Motif = .Range("C3")
        For Ligne = 5 To Derlig
            'contaténation des données dossier, employé,date, motif
            Concat = .Cells(Ligne, "A") & " " & .Cells(Ligne, "B") & " " & .Cells(Ligne, "C") & " " & Motif
            If Not D_motif.exists(Concat) Then D_motif.Add Concat, Ligne
        Next
'--------------------------comparaison  et report des frais
        For cptr = 1 To UBound(T_donnees)
            Concat = T_donnees(cptr, 1) & " " & T_donnees(cptr, 2) & " " & T_donnees(cptr, 3) & " " & T_donnees(cptr, 4)
            'si concatenation identique report des frais colonne G
            If D_motif.exists(Concat) Then .Cells(D_motif.Item(Concat), "G") = T_frais(cptr)
        Next
 End With
End Sub