Essaie ce code :
Dim NbrPrj As Single
Dim N As Single
N = 0
NbrPrj = 0
Do While Cells(5 + N, 1).Value <> "Total général"
If IsDate(Cells(5 + N, 1).Value) = False Then
NbrPrj = NbrPrj + 1
End If
N = N + 1
Loop
MsgBox "Vous avez " & NbrPrj & " projets !"