Bonjour à tous.

Un des mes collègue a préparé un fichier dans lequel il y a le code suivant...
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
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo CaMarchePas
 
Dim Question1D As Integer, Question1F As Integer, PW As String, x As String, y As String
 
If Target(1, 1).Column = 6 And Target(1, 1).Row = 9 And Target.Value = "x" Then
 
Rows(Question1D & ":" & Question1F).Select
    Selection.EntireRow.Hidden = True
 
End If
 
If Target(1, 1).Column = 6 And Target(1, 1).Row = 9 And Target.Value <> "x" Then
 
Rows(Question1D & ":" & Question1F).Select
    Selection.EntireRow.Hidden = False
 
End If
Il fait appel à moi pour l'aider suite à l'erreur 13. La situation se produit dès que plus d'une cellules sont sélectionnées et que l'on supprime le contenu.

Existe-t-il une solution pour contourner ce problème.

Merci à l'avance pour vos pistes de solutions.

Dlight