Salut Roland et Lenain !
Roland, une petite faute que je suis sur, Lenain aura corrigée.
activecell;row, 15 plutôt un point à la place du point-virgule :
ActiveCell.row, 15
Et puis comme il s'agit d'un PasteSpecial xlValue, on peut faire plus court, tel que :
Cells(ActiveCell.Row, 15) = Cells(ActiveCell.Row, 4).Value
Bonne journée
Moa