Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Nb As Integer
Nb = WorksheetFunction.CountA(Worksheets("Feuil1").Range("A4,A6,A8,C4,E4,E6,G4,G6,J4,J6,L4"))
If WorksheetFunction.CountA(Worksheets("Feuil1").Range("A4,A6,A8,C4,E4,E6,G4,G6,J4,J6,L4")) < 11 Then
MsgBox "Vous devez remplir toutes les zones grises " & vbCrLf & _
"Il manque " & 11 - Nb & " donné(es)"
Cancel = True
End If
End Sub