'Avec formule
If Not Application.Intersect(Target, Range("H:I")) Is Nothing Then
ActiveSheet.Unprotect
ligne = Target.Row
If Cells(ligne, 12).Value = "Terminée" Then
Range(Cells(ligne, 8), Cells(ligne, 11)).Locked = True
Range(Cells(ligne, 8), Cells(ligne, 11)).Font.Italic = True
Else
Range(Cells(ligne, 8), Cells(ligne, 11)).Locked = False
Range(Cells(ligne, 8), Cells(ligne, 11)).Font.Italic = False
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Protect
End If