Sub test()
With Sheets(1)
If ((Application.CountBlank(.Range("F10:G10")) + Len(.[A12]) + Len(.[F14])) = 2) Then
MsgBox "Ces cellules sont vides.", vbCritical, "F10,G10,A12,F14"
Else
MsgBox "Au moins une de ces 4 cellules n'est pas vide.", vbInformation, "F10,G10,A12,F14"
End If
End With
End Sub