Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [B:B]) Is Nothing Then
L = Target.Row ' Extraction N° de ligne
' Si la cellule cliquée est la première ligne vide après le tableau on déprotège, sinon on protège
If Cells(L - 1, "B") <> "" And Cells(L + 1, "B") = "" Then ActiveSheet.Unprotect Else ActiveSheet.Protect
ElseIf Not Intersect(Target, [A:A]) Is Nothing Then
' Si clic en A on va sur même ligne en colonne B
Cells(Target.Row, "B").Select
End If
End Sub