Bonjour le forum,

Je me tourne vers vous car je séche sur une ligne de code. Lorsque je cherche à appliquer un copier/coller en définissant la sélection via Range (cells(...,...), Cells (...,...) j'obtiens une erreur de type 1004.

Voir le code ci dessous :
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
 
Function copier(typpe, classeur, coldeb, bornesup, colfin, borneinf)
 
lignedest = Range("A65536").End(xlUp).Row + 1
If typpe = "Réalisé" Then
    coldest = 2
ElseIf typpe = "Engagé" Then
    coldest = 13
Else
    MsgBox "Erreur fatale"
    End
End If
 
Workbooks(classeur).Worksheets(1).Range(Cells(bornesup, coldeb), Cells(borneinf, colfin)).Copy _
    Destination:=ThisWorkbook.Worksheets("Détail").Range(lignedest, coldest)
 
bas = ThisWorkbook.Worksheets("Détail").Range(65536, coldest).End(xlUp).Row
For i = lignedest To bas
    ThisWorkbook.Worksheets("Détail").Cells(i, 1).Value = typpe
Next i
End Function
A noter lorsque je fais un appel standard du type (voir ci dessous) le code marche nickel

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Workbooks(classeur).Worksheets(1).Range("A6 : L7").Copy _
    Destination:=ThisWorkbook.Worksheets("Détail").Range("B2")
J'espère que vous saurez m'aider. Je vous remercie en tout par avance du coup de main.

A+