Sub macro7()
Dim r1 As Range, r2 As Range, f1$, f2$
Cellules_A_Tester = "B2"
Feuille_A_Tester = "Feuil1"
Feuille_Résult = "Résultats"
Set r1 = Sheets(Feuille_A_Tester).Range(Cellules_A_Tester)
Set r2 = Sheets(Feuille_Résult).Range(Cellules_A_Tester)
f1$ = r1.FormatConditions(1).Formula1 'ça bloque ICI
f2$ = r2.FormatConditions(1).Formula1
MsgBox "Formule 1 : " & f1$ & vbLf & "Formule 2 : " & f2$, , "MFC"
Exit Sub
erreur:
Beep
MsgBox "erreur"
End Sub