XL 2019 Afficher un tableau en fonction d'un choix dans liste déroulante

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C3]) Is Nothing Then Exit Sub
With [B5]
    .CurrentRegion.Clear 'RAZ
    If TypeName(Evaluate([C3].Value)) = "Range" Then Evaluate([C3].Value).Copy .Cells
End With
End Sub