Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.ListObjects.Count = 0 Then Exit Sub 's'il n'y a pas de tableau structuré
Dim R As Range
With Sh.ListObjects(1).Range
Set R = .Rows(.Rows.Count + 1).Cells
If Not Intersect(ActiveCell, R) Is Nothing And R(0, 1) <> "" Then
.ListObject.Resize Range(.Cells, R) 'redimensionnement
R(1).Select
End If
End With
End Sub