Sub Macro1()
Dim DS As Worksheet 'déclare la variable DS (onglet Data Support)
Dim S1 As Worksheet 'déclare la variable S1 (onglet Source1)
Dim S2 As Worksheet 'déclare la variable S2 (onglet Source2)
Dim R As Worksheet 'déclare la variable R (onglet Résultat)
Dim TS1 As Variant 'déclare la variable TS1 (Tableau Source1)
Dim TS2 As Variant 'déclare la variable TS2 (Tableau Source2)
Dim I As Integer 'déclare la variable I (Incrément)
Dim K As Integer 'déclare la variable K (incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau des Lignes)
Set DS = Worksheets("Data support") 'définit l'onglet DS
Set S1 = Worksheets("Source1") 'définit l'onglet S1
TS1 = S1.Range("A1").CurrentRegion 'définit le tableau TS1
Set S2 = Worksheets("Source2") 'définit l'onglet S2
TS2 = S2.Range("A1").CurrentRegion 'définit le tableau TS2
Set R = Worksheets("Résultat") 'définit l'onglet R
R.Range("A1").CurrentRegion.Offset(1, 0).ClearContents 'efface les anciennes données de l'onglet R
For I = 2 To UBound(TS1, 1) 'boucle sur toutes les lignes I du tableau des valeurs TS1 (en partant de la seconde)
K = K + 1 'incrémente K
ReDim Preserve TL(1 To 14, 1 To K) 'redimensionne le tableau des lignes (14 lignes, K colonnes)
TL(1, K) = TS1(I, 1) 'récupère dans la ligne 1 colonne K de TL la donnée en ligne I colonne 1 de TS1
'TL(2, K) = je n'ai pas compris, je te laisse gérer
TL(3, K) = TS1(I, 2) 'récupère dans la ligne 3 colonne K de TL la donnée en ligne I colonne 2 de TS1
TL(4, K) = TS1(I, 3) 'récupère dans la ligne 4 colonne K de TL la donnée en ligne I colonne 3 de TS1
TL(5, K) = DS.Columns(1).Find(TS1(I, 4), , xlValues, xlWhole).Offset(0, 1) 'récupère dans la ligne 5 colonne K de TL la donnée correspondante à ligne I colonne 4 de TS1 dans le tableau de l'onglet DS
TL(6, K) = TS1(I, 5) 'récupère dans la ligne 6 colonne K de TL la donnée en ligne I colonne 5 de TS1
TL(7, K) = TS1(I, 6) 'récupère dans la ligne 7 colonne K de TL la donnée en ligne I colonne 6 de TS1
TL(8, K) = TS1(I, 7) 'récupère dans la ligne 8 colonne K de TL la donnée en ligne I colonne 7 de TS1
TL(9, K) = TS1(I, 8) 'récupère dans la ligne 9 colonne K de TL la donnée en ligne I colonne 8 de TS1
TL(10, K) = TS2(I, 2) 'récupère dans la ligne 10 colonne K de TL la donnée en ligne I colonne 2 de TS2
TL(11, K) = TS2(I, 3) 'récupère dans la ligne 11 colonne K de TL la donnée en ligne I colonne 3 de TS2
TL(12, K) = TS2(I, 4) 'récupère dans la ligne 12 colonne K de TL la donnée en ligne I colonne 4 de TS2
TL(13, K) = TS2(I, 5) 'récupère dans la ligne 13 colonne K de TL la donnée en ligne I colonne 5 de TS2
TL(14, K) = TS2(I, 6) 'récupère dans la ligne 14 colonne K de TL la donnée en ligne I colonne 6 de TS2
Next I 'prochaine ligne de la boucle
R.Range("A2").Resize(K, 14).Value = Application.Transpose(TL) 'renvoie dans A2 redimensionnée de l'onglet R, le tableau TL transposé
End Sub