Microsoft 365 Faire correspondre une cellule à une autre

Sub Livraison()

Dim TabData() As Variant
Dim TabFinal() As Variant

With ActiveSheet
    LastLine = .UsedRange.Rows.Count 'dernière ligne
    TabData = .Range("A1:S" & LastLine).Value 'on place les colonnes A à S dans le tablo VBA
End With

ReDim TabFinal(1 To UBound(TabData, 1), 1 To 14) 'on dimensionne le tableau final avec le meme nombre de lignes et 14 colonnes

With Sheets("Resultat") 'dans la feuille résultat
    .UsedRange.Offset(1, 0).Clear 'on efface tout SAUF la ligne d'entête
    TabFinal = .Range("A1").Resize(UBound(TabFinal, 1), UBound(TabFinal, 2)).Value 'on récupère la ligne d'entete dans la première ligne du tabloeau VBA
End With

For i = LBound(TabFinal, 1) + 1 To UBound(TabFinal, 1) 'pour chaque ligne, on déplace la donnée de TabData vers TabFinal à la bonne colonne
        TabFinal(i, 1) = TabData(i, 3)
        TabFinal(i, 2) = TabData(i, 4)
        TabFinal(i, 3) = TabData(i, 5) + TabData(i, 6)
        TabFinal(i, 4) = TabData(i, 7) + TabData(i, 8)
        TabFinal(i, 5) = TabData(i, 9)
        TabFinal(i, 6) = ""
        TabFinal(i, 7) = TabData(i, 10)
        TabFinal(i, 8) = TabData(i, 11)
        TabFinal(i, 9) = TabData(i, 12) & Chr(10) & TabData(i, 13)
        TabFinal(i, 10) = TabData(i, 14)
        TabFinal(i, 11) = TabData(i, 15)
        TabFinal(i, 12) = TabData(i, 16)
        If TabData(i, 17) = "CU1" Or TabData(i, 17) = "CU2" Then
            TabFinal(i, 13) = "VRAI"
        Else
            TabFinal(i, 13) = "FAUX"
        End If
        TabFinal(i, 14) = TabData(i, 18)
Next i

With Sheets("Resultat") 'on colle le résultat final dans la feuille Résultat
    .Range("A1").Resize(UBound(TabFinal, 1), UBound(TabFinal, 2)) = TabFinal
End With

End Sub

let
    Source = Excel.Workbook(File.Contents("Adapter le chemin vers le fichier\test extraction.xlsx"), null, true),
    extract_185_284_230426_0937_Sheet = Source{[Item="extract_185_284_230426_0937",Kind="Sheet"]}[Data],
    #"En-têtes promus" = Table.PromoteHeaders(extract_185_284_230426_0937_Sheet, [PromoteAllScalars=true]),
    #"Livré avant ajouté" = Table.AddColumn(#"En-têtes promus", "Livré avant", each [Date début de livraison] &Time.From([Heure de début de livraison]), type datetime),
    #"Livré après ajouté" = Table.AddColumn(#"Livré avant ajouté", "Livré après", each [Date fin de livraison] & Time.From([Heure de fin de livraison]), type datetime),
    #"Nom société ajouté" = Table.AddColumn(#"Livré après ajouté", "Nom de la société", each null),
    #"Sur rue ?" = Table.TransformColumns(#"Nom société ajouté",{{"Code produit vendu", each Logical.From(_="CU1" or _="CU2"),Logical.Type}}),
    #"Colonnes fusionnées" = Table.CombineColumns(Table.TransformColumnTypes(#"Sur rue ?", {{"Adresse 2 du destinataire", type text}}, "fr-FR"),{"Adresse 1 du destinataire", "Adresse 2 du destinataire"},Combiner.CombineTextByDelimiter("#(lf)", QuoteStyle.None),"Adresse"),
    #"Colonnes renommées" = Table.RenameColumns(#"Colonnes fusionnées",{{"Nombre d'UM", "Commentaires"}, {"Récépissé", "Référence de commande"}, {"Téléphone destinataire", "Numéro du destinataire"}, {"Code postal du destinataire", "Code postal"}, {"Ville du destinataire", "Ville"}, {"Instructions de livraison", "Instructions d'accès"}, {"Code produit vendu", "Commerce ou restaurant sur rue"}, {"Poids", "Kilogramme"}}),
    #"Colonnes sélectionnées" = Table.SelectColumns(#"Colonnes renommées",{"Commentaires", "Référence de commande", "Livré avant", "Livré après", "Nom du destinataire","Nom de la société", "Email destinataire", "Numéro du destinataire", "Adresse", "Code postal", "Ville", "Instructions d'accès", "Commerce ou restaurant sur rue", "Kilogramme"})
in
    #"Colonnes sélectionnées"