Si j'ai bien tout compris à ton souci, voici un petit code détaillé qui devrait t'aider
Sub transfert_données()
'copie de la sélection
Selection.Copy
'feuille et cellule de destination
Sheets('Feuil2').Select
Range('A1').Select
'collage spécial pour ne copier seulement les valeurs du tableau et le format
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats
'elimination du format conditionnel existant condition 1 et 2
Selection.FormatConditions.Delete
Selection.FormatConditions.Delete
'mise en place d'un nouveau format conditionnel
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:='1'
Selection.FormatConditions(1).Font.ColorIndex = 3
End Sub
@+