Sub Lance()
'Stop
For n = 2 To Sheets.Count
Sheets(1).Range("W7").Value = Sheets(n).Range("H7").Value
Filtre_Elaboré
nlf = Range("Q65536").End(xlUp).Rows.Row
If nlf = 19 Then GoTo suite
Sheets(1).Range("Q20:AA" & nlf).Copy
Sheets(n).Select
Range("B20").Select
ActiveSheet.Paste
Application.CutCopyMode = False
suite:
Sheets(1).Select
Next
End Sub