sub clochete()
Dim TabloIni, TabloFin(), TabloE
Dim DerLig As Long
Dim i, j, k
'DerLig = Range("A" & Rows.Count).End(xlUp).Row supprimer la ligne suivante si rien après tableau
DerLig = 13
k = 0
TabloIni = Range("A1:D" & DerLig)
TabloE = Range("H1:H" & DerLig)
For i = LBound(TabloE) To UBound(TabloE)
For j = LBound(TabloIni) To UBound(TabloIni)
If TabloIni(j, 1) = TabloE(i, 1) Then
k = k + 1
ReDim Preserve TabloFin(1 To 3, k)
TabloFin(1, k) = TabloIni(j, 2)
TabloFin(2, k) = TabloIni(j, 3)
TabloFin(3, k) = TabloIni(j, 4)
End If
Next
Next
' G18 = coin supérieur gauche du tableau où seront copiées les données
[G18].Resize(UBound(TabloFin, 2), UBound(TabloFin, 1)).Value = Application.Transpose(TabloFin)
End Sub