Bonjour Tungstene,
Peut-être une macro dans ce style, à mettre dans le module de feuille
Option Explicit
Dim PremVal As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('B1')) Is Nothing Then
If PremVal = 'A' And Range('B1') = 'B' Then
'Mettre ici la macro à exécuter
PremVal = Range('B1')
End If
End Sub
Cordialement
Bernard