Bonsoir,
Je cherche à faire un simple copier/coller d'une ligne d'une feuille à une autre feuille et un coup sur deux, ça plante avec l'erreur "La méthode Paste de la classe Worksheet a échoué".
J'ai cherché sur internet... mais les solutions données ne fonctionnent pas...
Merci de votre aide. Voici le code !

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
Sub CopieLigne()
'copie la ligne active vers les anciens clients
ActiveSheet.Unprotect
    Dim F_Départ, F_Destination
    Dim LigneDestination
    Dim test
    Set F_Départ = ActiveSheet
    Set F_Destination = Sheets("Anciens")
 
 
    F_Départ.Activate
    ActiveCell.EntireRow.Copy
 
    F_Destination.Activate
    ActiveSheet.Unprotect
    LigneDestination = F_Destination.Range("A65356").End(xlUp).Row + 1
    F_Destination.Range("A" & LigneDestination).Select
    ActiveSheet.Paste
    ActiveSheet.Protect
    F_Départ.Activate
    Application.CutCopyMode = False
 
End Sub