Pour quelle raison, si je remplace If Target.Address = "$4" Then par « If Target.Address = "D4" Then ..., Cela ne fonctionne plus

Par défaut , Excel donne target.address en référence absolue
Si tu veux lui parler de référence relative il faut mettre :
If Target.Address(RowAbsolute:=False, ColumnAbsolute:=False) = "D4" Then
ou encore pour ne pas utiliser la référence absolue, il faut remplacer Address par
Address(0,0) Address(RowAbsolute:=False) '
Address(ReferenceStyle:=xlR1C1) ' L1C1