Dim plage As Range
Dim cell As Range
Dim compteur As Integer
Set plage = ActiveSheet.Range("C6:Q6")
compteur = 0
For Each cell In plage
If Not cell.Comment Is Nothing Then
If InStr(1, cell.Comment.Text, "absence", vbTextCompare) > 0 Then
compteur = compteur + 1
End If
End If
Next cell
ActiveSheet.Range("AO6").Value = compteur