Condition If, and et oe en VBA

Bonjour,

voici le code VBA que j'ai :

If b1 <> b2 Then
nom = .Range(Prenom & liFS).Value
n = n + 1
ReDim Preserve T(1 To n)
res = nom & " amount changed from " & b1 & " to " & b2
T(n) = res

End If


If b1 <> b2 And d1 <> d2 Then
nom = .Range(Prenom & liFS).Value
n = n + 1
ReDim Preserve T(1 To n)
res = nom & " Deceased ," & " amount changed from " & b1 & " to " & b2
T(n) = res
End If

mon problème c'est que je veux que la macro me sorte une seule de ses deux lignes. pour l'instant sa me sort
" Bob amount changed from 100 to 150"
" Bob deceased, amount changed from 100 to 150"

Mais je veux seulement la deuxieme ligne si quelqu'un repond aux deux conditions
mais quand je met le "or" entre les deux ca ne fonctionne pas. avez-vous des suggestions?

Merci