XL 2013 VBA - Indirect - Validation de données

Essayer avec pour Range("$C17") :
                              Range("C17").Address(True, False)
                              OU
                              c.Offset(0, -1).Address(True, False)

Sub test()
Dim c As Range
For Each c In Sheets("Charges").Range("D17:D906")

With c.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=INDIRECT(""" & Range("$C17").Address(True, False) & """)"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With
Next c
End Sub

Sub a()
Dim c As Range
With [D17:D906]
    .Validation.Delete
    For Each c In .Cells
        c.Validation.Add xlValidateList, Formula1:="=INDIRECT(""" & c.Offset(0, -1).Address & """)"
    Next
End With
End Sub

Sub b()
With [D17:D906].Validation
    .Delete
    .Add xlValidateList, Formula1:="=C17"
End With
End Sub

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=INDIRECT(""" & Range("$C17").Address(True, False) & """)"

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=IF($C17="""",$C17,INDIRECT($C17))"