VBA - Position cellule par rapport à variable

Bonjour à tous,

une question qui peut paraitre toute bête, mais qui me bloque un peu...
Comment faire pour exprimer la position d'une cellule par rapport à une variable, dans le cas de l'utilisation de Formula1 (et non pas R1C1). Exemple :

x = 3

ActiveCell.Validation.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=D(x)<45"
ActiveCell.Validation.ErrorMessage = "Valeur > 45°C"

une commande qui permet d'afficher un message quand la valeur de la cellule concernée est supérieure à 45. Cette cellule est ici D3, mais j'aimerais la noter en fonction de x. Comment écrire cela?

Merci d'avance pour vos réponses.