Private Sub Worksheet_change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("F8,F10,F12,F14")) Is Nothing Then Exit Sub
Application.EnableEvents = False
With Target
If .Value = "RESPONSABLE" Then
.Offset(1, 0) = "='01'!" & IIf(.Row = 8, "E10", IIf(.Row = 10, "E19", IIf(.Row = 12, "J19", "E25")))
ElseIf .Value = "SIGNATAIRE DELEGUE" Then
.Offset(1, 0).ClearContents
End If
End With
Application.EnableEvents = True
End Sub