Bonsoir,
Après avoir bien chercher sur le site, j'ai trouvé des bribes de réponses à mon problème mais je galère quand même un peu.
J'aimerai copier une ligne d'une feuille1 vers une feuille2 mais sans ouvrir celle çi.
J'ai bien compris que les activate et les select sont a proscrire dans ces cas là mais je n'arrive pas a trouver la solution
Voici mon code qui fonctionne bien mais avec Activate et select :

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
Sub Trt_Sauv_Ligne ()
 
    Range("A" & Lig_Trouve & " :L" & Lig_Trouve & "").Select
    Selection.Copy
    Sheets("Liste des Trouves").Activate
 
    Range("a65536").End(xlUp).Select
    Ligne = Range("a1").CurrentRegion.Rows.Count
    Range("A" & Ligne + 1).Select
    ActiveSheet.Paste
 
    Sheets("Liste de Actifs").Activate
    Application.CutCopyMode = False
    Range("A7").Select
 
End sub
1 - Donc je sélectionne une ligne de Liste de Actifs
2 - J'ouvre la feuille "Liste des Trouves"
3 - Je recherche la dernière ligne + 1 de mon tableau
4 - Je selectionne la ligne et je colle

5 - J'active la feuille Liste de Actifs
6 - J'arrête la selection pour la copie
7 - Et je select la ligne A7

J'aimerai faire la partie 2 - 4 dans ma feuille Liste des Trouves "masquer"

Merci pour tout aide ou conseil.

Bonsoir