Bonjour,
Dans votre exemple c'est un comportement normal et je me doutais que vous alliez poser cette remarque. En effet je copie toute la plage B2 à F2 sur la plage B5:F28. Donc les quantités, PU et charges de la plage B5:D28 sont remplacées par les valeurs présentes sur la plage B2:D2. Donc ua final la formule des plages E5:F28 se base sur les mêmes valeurs que la plage B2:D2 pour son calcul, donc même résultat.
Je pense que ce que vous vouliez obtenir est uniquement une copie de la plage E2:F2, dans ce cas :
Sub RECOPIE()
Dim LR%
LR = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row 'Chiffre 1 à adapter en fonction du numéro de colonne contenant des valeurs jusqu'à la dernière ligne
Range("E2:F2").Copy 'copie les formules
Range("E5:F" & LR).PasteSpecial Paste:=xlPasteFormulas 'colle sur la plage jusqu'à la dernière ligne
Range("E5:F" & LR).Copy 'copie la plage jusqu'à la dernière ligne
Range("E5:F" & LR).PasteSpecial Paste:=xlValues 'colle en valeur
End Sub
Cet exemple était juste pour vous montrer qu'il faut être très précis dans les demandes, qui peuvent être mal interpretées. Le plus simple est un fichier représentatif (mêmes lignes, mêmes colonnes si l'on ne maîtrise pas), avec le résultat avant/après, ou la démarche à réaliser et l'objectif.
Je vous laisse adapter à votre fichier et reste à disposition si besoin.
Cdlt,