Salut :
Pour empêcher l'utilisateur de sortir avant de remplir les données ,Utilisez ce code
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Rn As Range
For Each Rn In Feuil3.Range("C1,A2,C2,C9,C12,C14,C15,C16,C17,F18,C19,C20,C24,C25,C26,H9,H10,H11,H12,H13,H14,L9,L10,L11,L12,L13,L14,I5")
If IsEmpty(Rn) = True Then
MsgBox "vous devriez compléter les données Dans les cellules grises", vbExclamation, "Err"
Cancel = True: Exit Sub: End If
Next
End Sub