Private Sub Worksheet_Change(ByVal Target As Range)
Dim voir As Boolean
Application.ScreenUpdating = False
If Target.Address = "$B$7" Then
nbespace = 2
Rows("11:200").Hidden = False
bas = [A:A].Find("*", , , , 1, 2).Row
Rows("11:" & bas).Hidden = True
If Target = "" Then Exit Sub
numliste = Application.Match([B7], Feuil2.[A1:A500], 0) + 1
For lig = 10 To bas
If Cells(lig, 1) = "" Then nbespace = nbespace + 1
If numliste = nbespace Then voir = True
If voir Then Rows(lig).Hidden = False
If voir And Cells(lig + 1, 1) = "" Then Exit For
Next
If nbespace <> 10 Then Rows(11).Hidden = True
End If
Application.ScreenUpdating = True
End Sub