Bonjour,

Je souhaite créer un fichier de suivi de tournées fournisseurs. Chaque semaine je vais avoir des données à déplacer au sein de mon fichier (Feuille "Renseignement" -> Feuille "Historique des tournées").
Je ne souhaite pas écraser les données transférer précédemment pour pouvoir faire des analyses par la suite.

Au début tout se passe très bien jusqu'à la ligne 31 où j'ai l'erreur 1004 :
Erreur défini par l'application ou par l'objet.
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
27
28
29
30
31
32
33
34
35
Sub Historique()
 
'compteur de ligne dans la feuille de renseignement hebdomadaire
Dim Ligne As Variant
Ligne = Sheets("Renseignement").Range("A3:A" & Rows.Count).End(xlDown).Row
 
'test si la seconde cellule de ma feuille est vide
'Si oui : Alors on copie à partir de cette cellule
'Si non : Alors on copie à la suite
 
If Sheets("Historique des tournées").Cells(2, 1) = "" Then
 
    With Sheets("Renseignement")
        .Select
        .Range(Cells(3, 1), Cells(Ligne, 7)).Copy
    End With
 
    Sheets("Historique des tournées").Range("A2").PasteSpecial
 
Else:
    With Sheets("Renseignement")
        .Select
        .Range(Cells(3, 1), Cells(Ligne, 7)).Copy
    End With
 
Ligne = Sheets("Historique des tournées").Range("A1:A" & Rows.Count).End(xlDown).Row
 
    With Sheets("Historique des tournées")
        .Select
        .Range(Cells(Ligne + 1, 1)).PasteSpecial
    End With
 
End If
 
End Sub
Après plusieurs recherches, je ne trouve pas la solution. Vous auriez une idée ?

Merci,

Bonne journée,