Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Function collage()
Dim i
 
For i = 1 To 1
 
        If ref_file(i) <> "" Then
            Workbooks.Open Filename:=ref_file(i) 'Origin:=xlWindows
            Call select_ref
           Windows("Data.xls").Activate
           Sheets(1).Activate
               ' If Range("A1") = "" Then
             '   Range("A1").Select
 
       erreur (!)       Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
              '  Else
                '    Range("A1").Select
                '    Selection.End(xlDown).Select
                '    ActiveCell.Offset(1, 0).Select
                '    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
 
                End If
                'End If
Next i
 
End Function

EDIT

mon erreur etait du a l'oubli de

Selection.Copy désolé pour ce post inutil