Salut
un fichier d'essai avec la MFC de départ et celle d'arrivée te ferait gagner du temps
Range("A1").FormatConditions(1).Modify xlCellValue, xlEqual, Formula1:="46"
V oila j ai trouve la soluce
comme le chiffre 45 correspond a mon nombre de feuilles qui sont cocernées et visibles !!
et que ce nombre change
j ai donc ecris
Sub Macro1()
Range("T5").Select ' cell avec MFC
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:=Sheets.Count - 13
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 6
End With
Selection.FormatConditions(1).Interior.ColorIndex = 50
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:=Sheets.Count - 13
Selection.FormatConditions(2).Interior.ColorIndex = 3
End Sub