VBA - Code qui ne marche pas

Sub Worksheet_Change(ByVal Target As Range)
'
Dim Z As Variant
'

If Target.Address = "$C$4" Then

Select Case Target
Case "AAAAA"
Z = "XXX" Or "YYY"

Case "BBBBB"
Z = "None"

Case "CCCCC"
Z = "XXX" Or "YYY"

Case "DDDDD"
Z = "=Database§$D$61😀atabase!$D$68"

Case "EEEEE"
Z = "None"

Case "FFFFF"
Z = "XXX" Or "YYY" Or "ZZZ"

End Select

With Range("C6")
.ClearContents

With .Validation
.Delete
.Add Type:=xlValidateList, Operator:=xlBetween, Formula1:=Z
End With
End With

End If

---------------------------------------

If C4 = "BBBBB" And C6 = "Ce qui a été choisie au dessus" Then

With Range("C8")
.ClearContents

With .Validation
.Delete
.Add Type:=xlValidateList, Operator:=xlBetween, Formula1:="=Database!$A$3😀atabase!$A$3"

End With
End With
End If


If C4 = "Sethness-Roquette" And C6 = "Aromatic Caramel" Then

With Range("C8")
.ClearContents

With .Validation
.Delete
.Add Type:=xlValidateList, Operator:=xlBetween, Formula1:="=Database!$A$6😀atabase!$A$12"

End With
End With
End If

---------------------------------------

If Target.Address = "$C$8" Then

Select Case Target
Case "0085"
Z = "=Database!$B$3😀atabase!$L$3"
Selection.Copy

Select Case Target
Case "1085"
Z = "=Database!$$5😀atabase!$L$5"
Selection.Copy

End Select

With Range("C11")
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

End With

End If

End Sub

Cliquez pour agrandir...