Bonsoir,
Dans mon code ci-dessous comment enlever l'insertion automatique de la ligne ?
Je veux juste que la ligne s'affiche quand je complète ma colonne 1 mais que ca n'insère pas en plus une ligne en dessous.

Merci d'avance,

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
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim ValSaisie As Variant
  ' Choix multiple en colonne Professionnels
 
    With ListObjects(1)
        Application.EnableEvents = False
    If Not Intersect(Target, .ListColumns("Gravité").DataBodyRange) Is Nothing Then
           Application.ScreenUpdating = False
            .ShowTotals = True
            .ShowTotals = False
            GoTo FinProc
    End If
        If Not Intersect(Target, .ListColumns("Professionnels").DataBodyRange) Is Nothing And Target.Count = 1 Then
 
            ValSaisie = Target
            If ValSaisie = "" Then
              Target.ClearContents
              GoTo FinProc
            End If
 
            Application.Undo
            p = InStr(Target, ValSaisie)
            If p > 0 Then
                Target = Left(Target, p - 1) & Mid(Target, p + Len(ValSaisie) + 1)
                If Right(Target, 1) = Chr(10) Then
                  Target = Left(Target, Len(Target) - 1)
                End If
            Else
                If Target = "" Then
                  Target = ValSaisie
                Else
                  Target = Target & Chr(10) & ValSaisie
                End If
            End If
            ElseIf Target.Row = .Range.Row + .ListRows.Count And Target.Column = .Range.Column And .DataBodyRange(Cells(.ListRows.Count), 1) <> "" Then
               .ListRows.Add
        End If
 
  End With
 
FinProc:
    Application.EnableEvents = True
 
End Sub