Comptage de celules en GRAS

dim u as integer
for each cell in range("A:A")
     if cell.font.bold=true then
          u=u+1
     end if
next cell
MsgBox ("nombre de cellules en gras : " & u)

'******************************************************
'http://www.mcgimpsey.com/excel/udfs/sumbold.html
  'Purpose:   Sum cells with bold formatting applied
  'Inputs:     vInput - array of one or more input ranges
  'Returns:   Sum of cells in vInput with bold formatting
  '******************************************************
  Public Function SumBold( _
        ParamArray vInput() As Variant) As Variant
    Dim rParam As Variant
    Dim rCell As Range
    Dim vTemp As Variant
        
    Application.Volatile
    On Error GoTo ErrHandler
    For Each rParam In vInput
      If TypeName(rParam) = "Range" Then
         With rParam
           For Each rCell In Intersect( _
               .Cells, .Cells.Parent.UsedRange)
             With rCell
               If .Font.Bold Then
                 If IsError(.Value) Then
                    vTemp = .Value
                    Exit For
                  ElseIf VarType(.Value2) = vbDouble Then
                    vTemp = vTemp + .Value2
                  End If
               End If
             End With
           Next rCell
         End With
       End If
     Next rParam
     SumBold = vTemp
   Continue:
     On Error GoTo 0
     Exit Function
   ErrHandler:             'Check for overflow
     If Err.Number = 6 Then SumBold = CVErr(xlErrNum)
     Resume Continue
   End Function

Public Function SumBold(rngSumRange As Range) As Single 
'Auteur; ken Johnson
'SOURCE:microsoft.public.excel.worksheet.functions
'mot-clé: SUM if cell is Bold 
Application.Volatile 
Dim rngCell As Range 
For Each rngCell In rngSumRange 
If IsNumeric(rngCell.Value) Then 
If rngCell.Font.Bold = True Then 
SumBold = SumBold + rngCell.Value 
End If 
End If 
Next rngCell 
End Function

Sub DenombreBOLDCELLS()
Dim compteur as Long' ou Integer je sais pas
Dim Rng As Range
With [A1] 'mettre ici la référence de la formule contenant
'le format conditionnel
compteur = 0
    For Each Rng In Selection.SpecialCells(xlCellTypeSameFormatConditions)
        If Not IsEmpty(Rng) And IsNumeric(Rng) Then
'tu peux supprimer And IsNumeric(Rng) qui sert à indentifier les cellules contenat des nombres
        compteur = compteur + 1
        End If
    Next
End With
MsgBox "Le nombre de cellules en gras est de : " & compteur, vbInformation, "Résultats"
' en fait on obtiens le nombre de cellules qui répondent au format conditionnel
'donc cela peut servir pour tout les formats: gras, motifs, bordures
End Sub

sub macro1()
'auteur:j'Excel dans tout
dim u as integer
for each cell in range("A:A")
     if cell.font.bold=true then
          u=u+1
     end if
next cell
MsgBox ("nombre de cellules en gras : " & u)
end sub