Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Worksheets(1).Unprotect Password:="123rdp"
If Not Intersect(Target, Range("F11")) Is Nothing Then
If Cells(11, 6).Value = "Blessure avec arrêt" Then
Cells(37, 1).Value = "Cause(s) de l'accident :"
Else
If Cells(11, 6).Value = "Blessure sans arrêt" Then
Cells(37, 1).Value = "Cause(s) de l'accident :"
Else
Cells(37, 1).Value = "Cause(s) de l'incident :"
End If
End If
End If
'-------------------------------------------------
If Not Intersect(Target, Range("F11")) Is Nothing Then
If Cells(11, 6).Value = "Blessure avec arrêt" Then
Cells(41, 1).Value = "Conséquence(s) de l'accident :"
Else
If Cells(11, 6).Value = "Blessure sans arrêt" Then
Cells(41, 1).Value = "Conséquence(s) de l'accident :"
Else 'la ligne juste en dessous se met en défaut
Cells(41, 1).Value = "Conséquence(s) de l'incident :"
End If
End If
End If
Worksheets(1).Protect Password:="123rdp"
End Sub