Private Sub Worksheet_Change(ByVal Target As Excel.Range)
ActiveSheet.Unprotect Password:="pipapo"
'condition 1
If Not Intersect(Target, Range("E8:E41")) Is Nothing Then
If Target Like "AF-*" Then
Target.Resize(1, 4).Interior.ColorIndex = 27
Target.Offset(0, 4) = "AF-TEILE"
End If
End If
'condition 2
Dim Est As Range
If Target.Column = 5 Then
With Sheets("DB")
Set Est = .Columns(1).Find(Target)
If Est Is Nothing Then UserForm2.Show 'enlever le Not selon le cas
End With
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="pipapo"
End Sub