Bonjour Faustine,
Voilà une macro qui devrait rétablir :
Sub TraitementCloture()
Dim I As Long
For I = 2 To Range("A2").End(xlDown).Row
'rouverture client si produit ouvert et client clos
If Range("D" & I) = 0 And Range("A" & I) = 1 Then
Range("A" & I) = 0
End If
'clôture client si produit clos
If Range("D" & I) = 1 And Range("A" & I) = 0 Then
Range("A" & I) = 1
End If
Next I
End Sub
PS : Je pars de l'idée qu'on commence à la ligne 2 et qu'il s'agit des colonnes A (état du client) et B (État du produit)