Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub ' Si Taget comporte plusieur cellules ->sortie
'Si target est en G et sa ligne entre 3 et 104
If Target.Column <> 7 Or Target.Row < 4 Or Target.Row > 103 Then Exit Sub
On Error Resume Next
Application.EnableEvents = False 'empêche le rappel de l'évènement Change
If Target = "oui" Then
Range("j" & Target.Row) = "cf synthèse"
MsgBox "ne pas oublier d'aller dans l'onglet NAO"
Else
Range("j" & Target.Row).ClearContents
End If
Application.EnableEvents = True
End Sub