Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(ActiveCell.Row, 1).Locked Then
Me.Unprotect 'ajouter un mot de passe éventuellement
Cells.Locked = True
ActiveCell.EntireRow.Locked = False
Me.Protect 'ajouter un mot de passe éventuellement
End If
End Sub