Bonjour,

J'essaye de couper des lignes de ma feuille "Parc" et de les insérer à la ligne 2 de ma feuille "Rebut" suivant certaines conditions mais le débogage m'affiche cette erreur : "Erreur d'exécution '1004': La méthode Cut de la classe Range a échoué.". L'erreur s'affiche à la ligne 25 et j'ignore comment la résoudre.

Voici mon 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
24
25
26
27
28
29
30
31
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range, KeyCells2 As Range
    Set KeyCells = Range("G2:G5000")
    Set KeyCells2 = Range("H2:H5000")
 
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        Ligne1 = Target.Row
        ColonneRebut1 = Range("G" & Ligne1).Value
        ColonneStatus1 = Range("G" & Ligne1).Value
 
        If ColonneRebut1 <> "" And ColonneStatus1 = "Sorti Immo" Or ColonneRebut1 <> "" And ColonneStatus1 = "Destocké" Then
            Rows(Ligne1).Cut Sheets("Rebut").Rows(2).Insert
            MsgBox "La ligne " & Ligne1 & " vient d'être déplacée ... dans la feuille Rebut"
        End If
 
    End If
 
 
    If Not Application.Intersect(KeyCells2, Range(Target.Address)) Is Nothing Then
        Ligne2 = Target.Row
        ColonneRebut2 = Range("H" & Ligne2).Value
        ColonneStatus2 = Range("H" & Ligne2).Value
 
        If ColonneStatus2 = "Sorti Immo" And ColonneRebut2 <> "" Or ColonneStatus2 = "Destocké" And ColonneRebut2 <> "" Then
            Rows(Ligne2).Cut Sheets("Rebut").Rows(2).Insert
            MsgBox "La ligne " & Ligne2 & " vient d'être déplacée ... dans la feuille Rebut"
        End If
 
    End If
 
End Sub
Merci d'avance

P.S: Je suis débutant en VBA.