en plaçant ce code dans un bouton :
Sub Tranf()
Range("B2:B3").Select
Selection.Copy
Range("AA2:AA3").Select
Selection.PasteSpecial Paste:=xlFormats
Range("Y2:Y3").Select
Selection.Copy
Range("AC2:AC3").Select
Selection.PasteSpecial Paste:=xlFormats
End Sub
ou alors en l'éxécuatnt automatiquement à l'ouverure du classeur ou même d'un changement de feuille
@+
GD