Bonjour,
Un essai ...
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("Feuil2").Unprotect "YYY"
Select Case Target.Address
Case "$F$8":
If Cells(10, 6).Value = "" And Cells(12, 6).Value = "" And Cells(8, 6).Value <> "" Then Sheets("Feuil2").Cells(6, 2).FormulaLocal = "=Feuil1!$F$8"
If Cells(10, 6).Value = "" And Cells(12, 6).Value = "" And Cells(8, 6).Value = "" Then Sheets("Feuil2").Cells(6, 2).Value = ""
Case "$F$10":
If Cells(10, 6).Value <> "" And Cells(12, 6).Value = "" And Cells(8, 6).Value = "" Then Sheets("Feuil2").Cells(6, 2).FormulaLocal = "=Feuil1!$F$10"
If Cells(10, 6).Value = "" And Cells(12, 6).Value = "" And Cells(8, 6).Value = "" Then Sheets("Feuil2").Cells(6, 2).Value = ""
Case "$F$12":
If Cells(10, 6).Value = "" And Cells(12, 6).Value <> "" And Cells(8, 6).Value = "" Then Sheets("Feuil2").Cells(6, 2).FormulaLocal = "=Feuil1!$F$12"
If Cells(10, 6).Value = "" And Cells(12, 6).Value = "" And Cells(8, 6).Value = "" Then Sheets("Feuil2").Cells(6, 2).Value = ""
End Select
Worksheets("Feuil2").Protect Password:="YYY", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
ric