Private Sub Worksheet_Calculate()
If Range("H1") = "Yes" And Range("H2") = "Yes" Then
Application.Calculation = xlCalculationManual 'Important si on ne veut pas lancer un recalcul de la feuille en boucle
Range("C21") = "Yes"
Application.Calculation = xlCalculationAutomatic ' rétablir le calcul automatique
End If
End Sub
Option Explicit
Sub TEST()
Dim reponse As String
If Range("C17") = "No" And Range("C18") = "No" Then
reponse = InputBox("Choisissez Yes ou No")
If reponse = "No"Then
Range("C21") = "No"
Else
Range("C21") = "Yes"
End If
End If
End Sub