Bonsoir Pascal, Marie, le Forum
Rapidos, le plus simple est de nommer les cellules à contrôller (Touche 'CTRL' pour cellules non-adjacentes...) par exemple 'Toto'
Et ensuite ce genre de Code :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Verrou As Boolean
Dim Cell As Range
For Each Cell In Range('Toto')
If Cell = '' Then Verrou = True
Next
If Verrou = True Then
MsgBox 'Il manque des données'
End If
Cancel = Verrou
End Sub
Bonne Soirée
@+Thierry