Addition 2 cellules (incompatibilité de type)

Bonjour,

Dans le code j'écris cette ligne :
ActiveCell.Offset(0, 4).Value = CDbl(ActiveCell.Offset(0, 4).Value) + CDbl(ActiveCell.Offset(1, 4).Value)

Celle-ci (ActiveCell.Offset(0, 4).Value (sa valeur est "")) est en texte ce qui me donne un Incompatibilité de type car CDbl(ActiveCell.Offset(1, 4).Value) = 3.

Comment corriger le tout pour que ActiveCell.Offset(0, 4).Value = CDbl(ActiveCell.Offset(0, 4).Value) + CDbl(ActiveCell.Offset(1, 4).Value) = 3

Merci