Alors si on y entre d'autres valeurs I3 prendra par défaut la valeur 27 (pour afficher tout) :
Code:
Private Sub Worksheet_Change(ByVal target As Range)
If IsError([MATCH(I3,ROW(1:27),0)]) Then [I3] = 27
Rows(4).Resize([I3]).Hidden = False
If [I3] < 27 Then Rows(4).Offset([I3]).Resize(27 - [I3]).Hidden = True
End Sub
Je vois toutes vos réponses et tout semble merveilleux, mais moi, cela ne fonctionne pas. Dans quoi vous mettez les formules ? VB module, worksheet et on les associe comment ?