merci, ça semble fonctionner, mais j'ai un pépin à sélectionner plusieurs cellules non succesive à ma condition... Je ne veux pas que le document soit enregistré si les cellules D9, G9, D11 et F11 sont vide... voici le code que je fait, avec une seule cellule ("D9") ça fonctionne... merci pour l'aide :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("D9, G9, D11, F11") = "" Then
MsgBox "formulaire incomplet"
Cancel = True
End If
End Sub