XL 2016 Aide pour maj auto de la date + selection multiple dans une liste déroulante

Option Explicit 'oblige à la déclaration de toutes les variables
  
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Integer
Dim Plage As Range

If Target.Column = 10 And Target.Address <> "$J$1" Then   'si la colonne J est modifiée, alors on fait appel à la fonction 
    Call colonne_j(Target)
End If

For ligne = 2 To 10000
    Set Plage = Range("B" & ligne & ":Z" & ligne)
    If Application.Intersect(Target, Plage) Is Nothing Then
        'Hors cible on ne fait rien.
    Else
        Cells(ligne, "A").Value = Date & " " & Time
        Cells(ligne, "A").NumberFormat = "dd/mm/yyyy"
    End If
Next
Range("A:A").EntireColumn.AutoFit
Exitsub:
Application.EnableEvents = True
End Sub

'fonction colonne J
Function colonne_j(ByVal Target As Range)
Dim Oldvalue As String
Dim Newvalue As String
Dim RetourChariot As String
RetourChariot = Chr(10)

Application.EnableEvents = True
On Error GoTo Exitsub

''multiple choix possible "services impactés" en colonne J

  If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
    GoTo Exitsub
  Else: If Target.Value = "" Then GoTo Exitsub Else
    Application.EnableEvents = False
    Newvalue = Target.Value
    Application.Undo
    Oldvalue = Target.Value
      If Oldvalue = "" Then
        Target.Value = Newvalue
      Else
        If InStr(1, Oldvalue, Newvalue) = 0 Then
            Target.Value = Oldvalue & ", " & RetourChariot & Newvalue
            Rows(ActiveCell.Row).EntireRow.AutoFit
      Else:
        Target.Value = Oldvalue
      End If
    End If
  End If

Exitsub:
Application.EnableEvents = True

End Function

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel         As Range
Dim I           As Integer
Dim Oldvalue    As String
Dim Newvalue    As String

For Each Cel In Target
    If Not Intersect(Cel, [tableau_suivi_veille[#Data]]) Is Nothing Then
       ' Index de la ligne dans le tableau
        I = Cel.Row - [tableau_suivi_veille[#Headers]].Row
        Select Case True
       ' la ligne ci-dessous est à supprimer ou commenter pour traiter toutes les colonnes du tableau
        Case Intersect(Cel, [tableau_suivi_veille[Section]]) Is Nothing
        Case Cel = ""
        Case Intersect(Cel, Me.Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing
        Case Else
                Application.EnableEvents = False
                    Newvalue = Cel.Value
                        Application.Undo
                    Oldvalue = Cel.Value
                    Select Case True
                    Case Oldvalue = "": Cel = Newvalue
                    Case Not InStr(1, Oldvalue & ",", Newvalue & ",") > 0 ' ne pas trouver 1 dans 10
                        Cel = Oldvalue & ", " & vbLf & Newvalue
                        Cel.EntireRow.AutoFit
                    End Select
                Application.EnableEvents = True
        End Select
        With [tableau_suivi_veille[Date mise à jour]].Rows(I)
            Application.EnableEvents = False
                .Value = Now
                .Columns.AutoFit
            Application.EnableEvents = True
        End With

    End If
Next

End Sub

       ' la ligne ci-dessous est à supprimer ou commenter pour traiter toutes les colonnes du tableau
        Case Intersect(Cel, [tableau_suivi_veille[Section]]) Is Nothing 
               '--> si la cellule n'appartient pas à la colonne Section, on sort du select
        Case Cel = "" 
                '--> la cellule doit être renseignée
        Case Intersect(Cel, Me.Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing 
                '--> la suite ne se fera que si la cellule a une liste de validation