Ecrire une formule avec condition

Bonjour
Voilà je souhaite ecrire dans la colonne A:A une référence et que dans la colonne B:B une formule en face la cellule renseignée qui est ecrite en VBA vienne dans cette cellule.
j'ecris en A1 "SC3200" il faut quand B2 cela mette "=si(gauche (A1;2)="SC";OK;NOK)
j'ecris en A2 etc...
Evidement la formule est un exemple
Merci

Hello

à mettre dans ta feuil - comme début

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range) if target.column = 1 Then Cells(1, 2) = "la cellule A1 a changé"   End If End Sub

---

Merci mais je voudrais quand j'ecris un autre réf. en A2 puis A3 etc.
Que la formule continu a ecrire
merci

Un peu mieux

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then x = ActiveCell.Offset(-1, 0).Value ActiveCell.Offset(-1, 1).Value = "-" & x   End If End Sub

---

merci