Bonjour
Principe : sélectionner la plage, copier, sélectionner la cellule cible, (angle) qui doit être vide, et cliquer sur le bouton.
Code du bouton :
Sub CollerSansMFC()
If Application.CutCopyMode = False Then Exit Sub
If Selection.Count > 1 Then Exit Sub
If Not IsEmpty(ActiveCell) Then Exit Sub
Application.ScreenUpdating = False
ActiveCell.PasteSpecial
Set myRange = Selection
For Each cellule In myRange
cellule.Interior.ColorIndex = cellule.DisplayFormat.Interior.ColorIndex
Next
myRange.FormatConditions.Delete
Application.CutCopyMode = False
End Sub
Tu peux ajouter des messages d'erreurs aux conditions de sortie si tu le souhaites