Comment rechercher en VBA dans un tableau des cellules formatées d'une certaine manière pour y faire des modifiications ?

Voici comment utiliser la méthode "find" pour rechercher un format et boucler ....

sub TrouverFormat()
 
 Dim Rg As Range
 Dim LeCellFormat As CellFormat
 
 Set LeCellFormat = Application.FindFormat
 'Détermine les caractéristiques du format de cellule recherché.
 With LeCellFormat
 .Clear 'S'assurer d'effacer les critères des anciennes recherches
 .Interior.ColorIndex = 36
 'La liste pourrait être plus longue ...
 End With
 
 'Détermine la plage de cellules où s'effectue la recherche
 With Worksheets("Feuil1")
 Set Rg = .Range("A:A")
 End With
 
 'Trouve la cellule ayant le bon format pour
 'y effectuer une ou plusieurs opérations
 With Rg
 Set C = .Find(What:="", SearchFormat:=True)
 If Not C Is Nothing Then
  adr = C.Address
  Do
   'Le code que tu veux exécuter avec la cellule trouvée
   C.Select
   'pour passer à la cellule suivante ...
   Set C = .Find(What:="", after:=ActiveCell, SearchFormat:=True)
  Loop Until C.Address = adr
 End If
 End With
 
 end sub

Attention : cette méthode ne permet pas de trouver des cellules dont le format est défini par une mise en forme conditionnelle. Dans ce cas il faut rechercher la condition ayant généré le format.