XL 2010 Coller valeur pas formule débutant

[lelebl]

Bonjour, débutant en VBA, et me perfectionnant chaque jour, aujourd'hui j'ai appris grâce à l'aide de création de macro comment copier coller des valeurs.
Exemple : Je dois coller la Colonne A de la feuille 1 en Colonne B de la feuille 2 :
Ce qui m'a dans un premier temps donnée :
With Worksheets ("Feuil1")
Columns("A:A").Select
Range("A4").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Ce qui en réecrivant pour prendre moins de capacité de calcul :
Sheets("1").Columns(A).Copy Sheets("2").Columns(B)
Malheureusement cela copie la formule incrémenté en A, comment pourrais-je avoir seulement les valeurs?
J'ai pense a utiliser .PasteSpecial(xlPasteValues) mais comment faire?
MErci d'avance
Le jo masqué

 

[frangy]

Bonjour,

Pour aller au plus simple :

Sub Copier()
    Sheets("Feuil1").Columns("A").Copy
    Sheets("Feuil2").Columns("B").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

Cordialement.

 

[lelebl]

Merci bieng