RE
Sub Exemple()
A = 2
With [Tableau4].ListObject
Set ColB_ET = .HeaderRowRange.Cells(1, 2)
Set Plage = ColB_ET.Offset(WorksheetFunction.Match(A, .ListColumns("A").DataBodyRange, 0))
Set Plage = Plage.Resize(WorksheetFunction.CountIf(ColA, A), 1)
End With
End Sub
A est la valeur sélectionnée dans la 1ère liste déroulante donc à adapter
Plage renvoie la plage pour alimenter la seconde liste