msgbox Range("B12").value + variable
ou pour éviter les erreurs dues au fait qu'il n'y a pas de nombre :
if isnumeric(Range("B12").value) then
msgbox Range("B12").value + variable
else
msgbox "Impossible d'additionner" & range("B12") & " " variable
end if