Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$10" Then
With Feuil2
.Unprotect
Select Case UCase(Range("D10"))
Case "OUI"
.Range("F60:H73,F81:I105").ClearContents
'.Protect
Case "NON"
If .Range("H60,H81") = 0 Then
.Range("K60:M73").Copy .Range("F60")
.Range("K82:N105").Copy .Range("F81")
Application.CutCopyMode = False
'.Protect
End If
With Feuil16
.Unprotect
Select Case UCase(Range("D10"))
Case "OUI"
.Range("C15:G39,H43:H57,E61:E85,G61:L85").ClearContents
'.Protect
Case "NON"
.Range("Q15:U39").Copy .Range("C15")
.Range("S43:S57").Copy .Range("H43")
.Range("R61:R85").Copy .Range("E61")
.Range("S61:X85").Copy .Range("G61")
.Application.CutCopyMode = False
'.Protect
End Select
End With
End If
End Sub