' Feuille Listes
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
' code Feuille Listes
' Gre l'ajout d'une rivire dans la colonne Rivire
  Dim lo As ListObject
  Dim rng As Range
  Dim numCol%
  If Not Intersect(Target, Range("tb_listes[Riviere]")) Is Nothing And Target.Count = 1 Then
    If Target.Value <> "" Then
      With Range("tb_listes[#headers]")
        Set rng = .Find(Target.Value, LookIn:=xlValues)
        If Not rng Is Nothing Then
          MsgBox "Cette rivire existe dj": Exit Sub
        Else
          Set lo = ActiveSheet.ListObjects("tb_listes")
          numCol = Target.Column + 1
          lo.ListColumns.Add (numCol) ' Ajoute une colonne
          lo.ListColumns(numCol).Name = Target.Value ' nomme une colonne
          Range("tb_listes").Cells(1, numCol) = "Autre"
          ActiveSheet.Columns.AutoFit
        End If
      End With
    End If
  End If
End Sub


