Bonjour tout le monde ,

Je planche sur un problème depuis plus de deux jours, voila :

En gros j'ai une case "supprimer" qui supprime 3 cases ( remplacement vers le haut ) si on clique dessus, le seul problème c'est que une fois le code supprimmé , je bug est généré .... et je ne vois vraiment pas de quoi cela pourrais provenir.

Je vous montre le code en question

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
 If Not Application.Intersect(Target, Range(Range("D7"), Range("D65000").End(xlUp))) Is Nothing Then
              If Cells(Target.Row, 3) <> "" Then
              If MsgBox("Etes-vous certain de vouloir supprimer ?", vbYesNo + vbQuestion) = vbYes Then
                    Dim maCel As Range
                    Set maCel = Target
                    maCel.Offset(0, -2).Delete Shift:=xlUp '==> ici on supprimme en décalant vers le haut ( parce que j'en ai besoin )
                    maCel.Offset(0, -1).Delete Shift:=xlUp
                    maCel.Delete Shift:=xlUp
 
               End If
 
                Range("B7:B100").Sort Key1:=Range("B7"), Order1:=xlAscending
          Range("C7:B100").Sort Key1:=Range("C7"), Order1:=xlAscending
          Range("D7:B100").Sort Key1:=Range("D7"), Order1:=xlAscending
 
               End If
          'Cells(ActiveCell.Offset(3, 1), 1).Clear
 
         Else
         If Not Application.Intersect(Target, Range(Range("C7"), Range("C65000").End(xlUp))) Is Nothing Then '=== sauf que du coup ça plante la
              If Cells(Target.Row, 3) <> "" Then                                                        '=> la méthode intersect de l'application a échoué <==
            Dim resultat As String


Voila, si quelqu'un voit de quoi il s'agit, il aura tout mon respect , moi j'ai limite envie de jeter l'éponge ...