Salle Occupants

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([A2:D20], Target) Is Nothing And Target.Count = 1 Then
    salle = Cells(1, Target.Column)
    Set result = Sheets("plan").Cells.Find(what:=salle, LookAt:=xlPart)
    If Not result Is Nothing Then
      With result
       If .Comment Is Nothing Then .AddComment
       n = Application.CountA(Columns(Target.Column)) - 1
       For Each c In Cells(2, Target.Column).Resize(n)
           temp = temp & c & Chr(10)
       Next c
       .Comment.Text Text:=temp & Chr(10) & n & " Places"
       .Comment.Shape.TextFrame.AutoSize = True
      End With
      result.Value = salle & ":" & n & " Places"
    End If
  End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([A2:D20], Target) Is Nothing Then
    For Each cel In Target
      salle = Cells(1, cel.Column)
      Set result = Sheets("plan").Cells.Find(what:=salle, LookAt:=xlPart)
      If Not result Is Nothing Then
         If result.Comment Is Nothing Then result.AddComment
         n = Application.CountA(Columns(Target.Column)) - 1
         temp = ""
         If n > 0 Then
           For Each c In Cells(2, cel.Column).Resize(n)
             temp = temp & c & Chr(10)
           Next c
         End If
         result.Comment.Text Text:=temp & Chr(10) & n & " Places"
         result.Comment.Shape.TextFrame.AutoSize = True
         result.Value = salle & ":" & n & " Places"
      End If
    Next cel
  End If
End Sub