Re : Simplifier le code
Bonjour,
Peut-être ainsi
Application.ScreenUpdating = False
With Sheets("Feuil1")
For i = 259 To 269
.Rows(i).Hidden = IIf(Range("B" & i) = "", True, False)
.Rows(i + 11).Hidden = IIf(Range("B" & i) = "", False, True)
Next i
End With...