Bonjour,
Avant de mettre le code en place, déprotège toutes les cellules de ton tableau et protège la feuille en suivant
Installe la macro suivante dans la feuille 1
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [b4:b12]) Is Nothing Then
ActiveSheet.Unprotect Password:=""
If Target = "Salaire" Or Target = "Virement" Then
Target.Offset(0, 3).Locked = True
Target.Offset(, 2).Locked = False
Else
Target.Offset(0, 3).Locked = False
Target.Offset(, 2).Locked = True
End If
ActiveSheet.Protect Password:=""
End If
End Sub
cordialement
ddetp