et donc là on parle d'afficher les mois de Q2 + juillet, pour faire le même sur Q3+1 mois il faut mettre les bonnes cellules dans la partie code suivante ? :
If .Range("AM" & i) <> "" Or .Range("AN" & i) <> "" Or .Range("AO" & i) <> "" Or .Range("AP" & i) <> "" Then
Derlig = Ws2.Range("A" & Rows.Count).End(xlUp).Row + 1