Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Plg As Range
With Sheets(1)
On Error Resume Next
Set Plg = .Range("Y7:AJ" & Rows.Count).SpecialCells(xlCellTypeConstants).EntireRow
If Err Then Exit Sub
Set Plg = Intersect(.Range("C7:C" & Rows.Count).SpecialCells(xlCellTypeBlanks), Plg)
If Plg Is Nothing Then Exit Sub
End With
Application.GoTo Plg
MsgBox "Veuillez indiquez PERM/TT dans la colonne C", vbOKOnly + vbExclamation