VBA Copier/Coller couleur mise en forme conditionnelle

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