Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1, 1).Address <> "$B$9" Then Exit Sub
Rows("9:14").Hidden = False
If Target.Cells(1, 1) = "" Then Exit Sub
For lig = 14 To 9 Step -1
If Cells(lig, 3) = "" Then
derLigne = lig
Else: Exit For
End If
Next lig
'Application.ScreenUpdating = False
If derLigne > 0 Then Rows(derLigne & ":14").Hidden = True
'Application.ScreenUpdating = True
End Sub