Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 2 And Target.Column = 10 Then
ActiveSheet.Unprotect ("mdp")
Range("H9").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC7<>"""",VLOOKUP(CONCATENATE(RC6&"" - ""&RC7),Paramètres!R423C1:R460C11,5,FALSE),"""")"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="mdp"
ActiveSheet.EnableSelection = xlUnlockedCells
End If
End Sub
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect ("mdp")
Range("H9").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC7<>"""",VLOOKUP(CONCATENATE(RC6&"" - ""&RC7),Paramètres!R423C1:R460C11,5,FALSE),"""")"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="mdp"
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub