Dim y As Long
y = Cells.Find("*", Cells(Rows.Count, Columns.Count), xlValues, , 2, 2, 0).Column + 1
Dim Wk As Workbook
x = "test-ecotaxe"
On Error Resume Next
Set Wk = Workbooks(x & ".xls")
If Err <> 1 Then
Workbooks.Open Filename:=ThisWorkbook.Path & "\test-ecotaxe.xls"
Windows("classeur-devis-vision-V1810.xls").Activate
Sheets("devis-1").Select
'Range("A30:D55").Copy Cells(2, Cells(2, Columns.Count).End(xlToLeft).Column + 1)
Range("A30:D55").Select
Selection.Copy
Windows("test-ecotaxe.xls").Activate
Sheets("Feuil2").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("classeur-devis-vision-v1810.xls").Activate
ActiveWindow.SmallScroll Down:=-39
Range("I30:I55").Select
Application.CutCopyMode = False
Selection.Copy
Windows("test-ecotaxe.xls").Activate
Sheets("Feuil2").Select
Range("B2").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Windows("classeur-devis-vision-V1810.xls").Activate
Sheets("devis-1").Select
Range("A26").Select
Else
MsgBox "Le fichier " & x & " est ouvert"
End If