Macro pour copier des données en fonction d'une donnée....

=INDEX('Base Plats'!B:B;PETITE.VALEUR(SI(NB.SI(F$5:G$124;'Base Plats'!B$1:$B108);LIGNE('Base Plats'!B$1:$B108));LIGNES(B$5:B5)))

=SIERREUR(INDEX('Base Plats'!B:B;PETITE.VALEUR(SI(NB.SI(F$5:G$124;'Base Plats'!B$1:$B108);LIGNE('Base Plats'!B$1:$B108));LIGNES(B$5:B5)));"")

Private Sub Worksheet_Activate()
Worksheet_Change [F5] 'cellule à adapter
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim P As Range, t, rest$(), i&, n&
Set P = [F5:G124] 'plage à adapter
If Intersect(Target, P) Is Nothing Then Exit Sub
t = Feuil2.[B3:B108] 'CodeName + plage à adapter
ReDim rest(1 To UBound(t), 1 To 1)
For i = 1 To UBound(t)
  If Application.CountIf(P, t(i, 1)) Then
    n = n + 1
    rest(n, 1) = t(i, 1)
  End If
Next
[B5].Resize(UBound(rest)) = rest
End Sub