Sub Affichage_selectif_plage()
Dim j 'j = nombre de lignes de la plage a afficher
Dim ligdeb 'ligdeb => Lignes entetes a toujours afficher = de 1 a ligdeb-1
Dim valcombo ' valeur a remplacer par l'index de la combobox
Dim z ' numero de la derniere ligne de la plage globale
'Application.ScreenUpdating = False
j = 48 ' donc plage a afficher est de 48 lignes
ligdeb = 6 'donc pour garder les 5 premieres lignes en entete
Cells.EntireRow.Hidden = False
z = [A869].End(xlUp).Row
valcombo = 6
'test avec la valeur 6 mais deviendra dans la combobox :
'valcombo = ComboBox2.ListIndex
If valcombo = 16 Then
Cells((valcombo * j) + 1, 1).Select
Exit Sub
End If ' boucle pour afficher toutes les plages
Range(Cells(ligdeb, 1), Cells(z, 1)).EntireRow.Hidden = True
Range(Cells(ligdeb + (valcombo * j), 1), Cells(ligdeb + (valcombo * j) + j - 1, 1)).EntireRow.Hidden = False
Cells(ligdeb + (valcombo * j), 1).Select
'Application.ScreenUpdating = True
End Sub