Bonjour,
Une autre proposition, sensiblement identique.
Cdlt.
Private Sub Workbook_Open()
Dim TD As Range, n
Set TD = Range("Tableau1").Columns(4)
On Error Resume Next
n = TD.SpecialCells(xlCellTypeBlanks).Count
If n > 0 Then
MsgBox "Il vous reste " & n & " action(s) à clôturer.", 64, "Information"
Else
MsgBox "Toutes les actions sont clôturées.", 64, "Alerte"
End If
End Sub