correction macro pour copier

[Max]

Bonjour le forum,
j'utilise cette macro pour enregistrer une colonne sur une feuille d'historique.
Le problème est que au lieu d'enregistrer juste les valeur ca enregistre les formules avec, donc a chaque fois que mes données dans 'RECAP' change tout les valeurs de 'evolution' deviennet pareilles.

Dim Col As Byte

If Sheets('evolution').Range('B10').Value = '' Then
Sheets('RECAP').Range('C8:C22').Copy Sheets('evolution').Range('B6')
Else
Col = Sheets('evolution').Range('IV6').End(xlToLeft).Column + 1
Sheets('RECAP').Range('C8:C22').Copy Sheets('evolution').Cells(6, Col)
End If
Sheets('evolution').Select
End Sub

Merci pour l'aide

 

[CBernardT]

Bonjour Max et le forum,

Essayes cette évolution de la macro :

Sub macro()
Dim Col As Byte

If Sheets('evolution').Range('B10').Value = '' Then
Sheets('RECAP').Range('C8:C22').Copy
Sheets('evolution').Range('B6').PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Else
Col = Sheets('evolution').Range('IV6').End(xlToLeft).Column + 1
Sheets('RECAP').Range('C8:C22').Copy
Sheets('evolution').Cells(6, Col).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
Sheets('evolution').Select
End Sub

Cordialement

Bernard

 

[Max]

Bonjour CBernardT, le forum
Yes ca marche..

MERCI
@+