Tri nom et suppression ligne

bonjour à tous

j'ai un tableau en A11 Q500

je voudrais qu'en saisissant le nom en colonne b à partir de B12 les noms prennent automatiquement leur place en ordre alphabétique

une fois la cellule validée

egalement si je souhaite suppprimer une ligne de A11 à Q500 j'aimerais supprimer uniquement la ligne concernée

par commodité je desactive (entête lignes et colonnes)

merci à vous par avance

ci joint l'exemple

Bonjour

Avant les explications, regarde si cela convient

Cordialement

bonsoir amadeus

c'est exactement cela

merci

Bonjour

Le détail

Code dans ThisWorkbook

Private Sub Workbook_Open()
    Sheets("Feuil1").OnEntry = "Entree"
End Sub

Code dans Module

Sub Entree()
    If ActiveCell.Column = 2 Then
        Tri
    End If
End Sub
Sub Tri()
    Dim LastRow As Long
    LastRow = ActiveSheet.Range("B12").End(xlDown).Row
    Range("B13:Q" & LastRow).Sort Key1:=Range("B12"), Order1:=xlAscending, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub

Cordialement