Sub Macro1()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
'Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Integer 'déclare la variable J (incrément)
Dim K As Integer 'déclare la variable K (incrément)
Dim TMP As Variant 'déclare la variable TMP (tableau TeMPoraire)
Dim D As Object 'déclare la variable D (Dictionnaire)
Dim TL() As Variant 'déclare la variable TL (Tableau des Lignes)
Dim VS As String 'déclare la variable VS (ValeurS)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
Set OS = Worksheets("mon tableau") 'définit l'onglet OS
Set OD = Worksheets("resultat attendu") 'définit l'onglet OD
OD.Range("A1").CurrentRegion.Offset(1, 0).ClearContents 'efface les ancienne données de l'onglet OD
TV = OS.Range("A1").CurrentRegion 'définit la tableau des valeurs TV
Set D = CreateObject("Scripting.Dictionary") 'définit le dictionnaire D
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV (en partant de la seconde)
D(TV(I, 1)) = "" 'alimente le dictionnaire D avec les données de la première colonne du tableau des valeurs TV
Next I 'prochaine ligne de la boucle
TMP = D.keys 'récupère dans le tableau temporaire TMP les valeurs du dictionnaire D sans doublon (les Clés)
For J = 0 To UBound(TMP, 1) 'boucle 1 : sur toutes les valeurs du tableau temporaire TMP
VS = "" 'réinitialise les valeurs VS
K = K + 1 'incrémente K
For I = 2 To UBound(TV, 1) 'boucle 2 : sur toutes les lignes I du tableau des valeurs TV (en partant de la seconde)
If TMP(J) = OS.Cells(I, "A").Value Then 'condition : si les deux valeurs sont égales
VS = IIf(VS = "", OS.Cells(I, "D").Value, VS & "|" & OS.Cells(I, "D").Value) 'définit la variable VS
ReDim Preserve TL(1 To 4, 1 To K) 'redimensionne le tableau des lignes TL
TL(1, K) = TV(I, 1) 'récupère dans la ligne 1 colonne K de TL la donnée en ligne I colonne 1 de TV (=> Transposition)
TL(2, K) = TV(I, 2) 'récupère dans la ligne 2 colonne K de TL la donnée en ligne I colonne 2 de TV (=> Transposition)
TL(3, K) = TV(I, 3) 'récupère dans la ligne 3 colonne K de TL la donnée en ligne I colonne 3 de TV (=> Transposition)
TL(4, K) = VS 'récupère dans la ligne 4 colonne K de TL la variable VS
End If 'fin de la condition
Next I 'prochaine ligne de la boucle 2
Next J 'prochaine valeur de la boucle 1
Set DEST = OD.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST
DEST.Resize(K, 4).Value = Application.Transpose(TL) 'renvoie dans DEST redimensionnée le tableau TL transposé
End Sub