Bonjour,

Voici un code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub copies()
    Sheets("Moniteur").Select
    Range("documentA1").Select
    Selection.Range(Cells(2, 1), Cells(9, 3)).Select
    Selection.Copy
    Sheets("Feuil1").Select
    Sheets("Feuil1").Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub
La copie ne prend que la colonne 1 et ignore les colonnes 2 et 3.
J'ai souvent des difficulltés avec Cells et Range.
Où est mon erreur ?

Merci si vous pouvez m'aider.