Bonjour tout le monde,
pas très doué en VBA...
J'ai trouvé ce code ci-dessous qui fonctionne très bien avec un simple classeur excel, par contre j'essai de le faire fonctionner avec un tableau de donnée la macro plante au moment de supprimer et décaler la ligne,

comment je peux lui indiquer que j'utilise un tableau de données?

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
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("I:I")) Is Nothing Then
    If Target = "R" Then
        Target = "£"
    ElseIf Target = "£" Then
        Target = "R"
    Else
        Target = "£"
    End If
    If Target.Column = 9 Then
        Range(Cells(Target.Row, "A"), Cells(Target.Row, "i")).Copy
        With Sheets("Feuil2")
            .Range("A" & .Range("A" & Rows.Count).End(xlUp)(2).Row).PasteSpecial xlPasteAll
        End With

        Range(Cells(Target.Row, "A"), Cells(Target.Row, "i")).Delete Shift:=xlUp

    End If
End If
End Sub