Private Sub CommandButton2_Click()
Dim c As Range, flag As Boolean
For Each c In [C7:C19]
If c = "Applicable" And c(1, 2) = "" Then MsgBox "Il manque une réponse en " & c(1, 2).Address(0, 0), vbCritical: flag = True
Next
If flag Then Exit Sub
'---suite du code---
End Sub