Sub compare()
Dim xcell As Range, CouleurMFC, rep
With Sheets("A").Range("a1").CurrentRegion 'avec la zone en cours de la cellule a1
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=A1<>B!A1"
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 10198015
.TintAndShade = 0
End With
' Pour chaque cellule de la plage de la feuille A
For Each xcell In .Cells
If xcell.Row > 1 Then
'on ne touche qu'aux lignes de numéro >=2
' on recherche la couleur de fond du à la MFC
CouleurMFC = xcell.DisplayFormat.Interior.Color
' on applique cette couleur "en dur" à la cellule
xcell.Interior.Color = CouleurMFC
End If
Next xcell
' On enlève la MFC de la feuille A
.FormatConditions.Delete
rep = MsgBox("Fin du coloriage en dur d'après la MFC" & vbLf & _
"La MFC de la feuille A a été supprimée" & vbLf & vbLf & _
"Supprimer la Feuille B et renommer A en B ?", vbQuestion + vbYesNo + vbDefaultButton2)
If rep <> vbYes Then Exit Sub 'on arrête si l'utilisateur le veut
' Renommage des onglets'
Application.DisplayAlerts = False
Sheets("B").Delete
Application.DisplayAlerts = True
Sheets("A").Name = "B"
End With
End Sub