Private Sub Worksheet_Change(ByVal Target As Range)
'la ligne dont la colonne G a été saisi est verouillé
'La ligne suivante est deverouillée
Application.EnableEvents = True
If Target.Column <> 8 Then Exit Sub
ActiveSheet.Unprotect
Target.EntireRow.Select
Selection.Locked = True
lig = Target.Row
Cells(lig + 1, 1).EntireRow.Select
Selection.Locked = False
ActiveSheet.Protect
End Sub