Bonjour,
En utilisant une macro évènementielle tu peux arriver au résultat.
A adapter selon ton besoin.
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$14" Then
If Cells(14, 3) = "ok" Then
Range(Cells(6, 3), Cells(11, 3)).Select
With Selection.Interior
.Pattern...