=A1=RECHERCHEV(A1;[Exemple.xlsm]Notice!#REF!;1;FAUX)
Sub CopierFormatConditionnel()
Dim plg As Range, a As Range, c As Range
On Error Resume Next
Set plg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllFormatConditions)
On Error GoTo 0
If Not plg Is Nothing Then
For Each a In plg.Areas
For Each c In a.Cells
c.Interior.Color = c.DisplayFormat.Interior.Color
c.Font.Color = c.DisplayFormat.Font.Color
c.Font.Bold = c.DisplayFormat.Font.Bold
Next
Next a
'Suppression des MFC
plg.FormatConditions.Delete
End If
End Sub