Problème de lenteur d'une macro

Bonjour

J'ai créer une macro sur la feuille" planning prévisionnel" qui permet de masquer les ligne qd certaines cellules sont vide, après j'ai créer une macro pour ré-afficher les ligne, puis une macro pour faire une impression. Depuis que j'ai créer ma macro d'impression la macro qui permet de masquer les lignes met longtemps à s'executer, je n'arrive pas à savoir pourquoi , est-ce qu'une personne pourrait m'aider? Merci

Salut serrecchia et le forum

J'ai créer une macro sur la feuille" planning prévisionnel"

A+

Edit : Désolé, j'ai pas pris le bon fichier Test

J'ai juste nettoyé et regroupé tes macros.

A+

Bonjour

J'ai regardé ton fichier (oui il y a des macros)

C'est la commandeRows(I).Hidden = False/True qui devient extrêmement lente après avoir fait une impression

Je ne sais pas pourquoi mais je vais suivre ce fil car la solution (si elle existe) ou la cause m'intrigue

Désolé de n'avoir pas trouvé

Edit

Je t'ai modifié la macro : Ce qui permet d'accélérer le masquage

Sub effacementsligne()
Dim L As Long
Dim Msg As String

  For L = 5 To 33
    If Application.WorksheetFunction.CountBlank(Range(Cells(L, 1), Cells(L, 22))) >= 22 Then
      Msg = Msg & ",A" & L
    End If
  Next L

  For L = 50 To 121
    If Application.WorksheetFunction.CountBlank(Range(Cells(L, 1), Cells(L, 22))) >= 21 Then
      Msg = Msg & ",A" & L
    End If
  Next L
  Range(Mid(Msg, 2)).EntireRow.Hidden = True
End Sub

Ok , merci bien