Comment effectuer un travail sur toutes les cellules de toutes les feuilles qui ont le même format que celle ou je suis actuellement ?

La procédure suivante récupère le format numérique de la cellule active, et teste toutes les feuilles du classeur actif, en mettant en rouge les cellules dont le format numérique correspond au format de la cellule active. La fin de la procédure active la cellule initialement active

sub FormatCellule()
 
 Dim FormatNumerique As String
  Dim Feuille As Worksheet, Cellule As Range,
 Plage As Range
  Dim FeuilleActive As Worksheet, CelluleActive As Range
 
 Set FeuilleActive = ActiveSheet
  Set CelluleActive = ActiveCell
 
 FormatNumerique = ActiveCell.NumberFormat
  For Each Feuille In
 Worksheets()
    Feuille.Select
    Set Plage =
 Feuille.Range("a1",
 ActiveCell.SpecialCells(xlCellTypeLastCell).Address)
 
  For Each Cellule In Plage
      If Cellule.NumberFormat =
 FormatNumerique Then
 Cellule.Interior.Color = vbRed
    Next Cellule
 
 Next Feuille
  FeuilleActive.Select
  CelluleActive.Select
 end sub

Fonctionnement : La macro mémorise la feuille et la cellule active, puis mémorise le format numérique de cette cellule Ensuite, elle détermine, pour chaque feuille du classeur, la dernière cellule utilisée et définit une plage allant de A1 à cette cellule. Elle compare les formats numériques et met en rouge les correspondances Ensuite, elle réactive le classeur de départ, et dans ce classeur, la cellule active initialement.