Private Sub CommandButton1_Click()
Dim I&, J&
Dim Dico As Object
Dim Data As Variant, Report As Variant
Set Dico = CreateObject("scripting.dictionary")
With Sheets("Feuil3")
Data = .Range(.Cells(2, 5), .Cells(.Rows.Count, 6).End(3))
Report = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(3))
For I = LBound(Data, 1) To UBound(Data, 1)
Dico(CStr(Data(I, 1))) = Data(I, 2)
Next I
For I = LBound(Report, 1) To UBound(Report, 1)
Report(I, 1) = Split(Report(I, 1), ",")
For J = LBound(Report(I, 1)) To UBound(Report(I, 1))
Report(I, 1)(J) = Dico(Report(I, 1)(J))
Next J
Report(I, 1) = Join(Report(I, 1), ",")
Next I
Cells(2, 2).Resize(UBound(Report, 1), 1) = Report
End With
End Sub