Sub compilation_donnees()
Dim LastLig As Long, NewLig As Long
Dim Ws As Worksheet
Application.ScreenUpdating = False
With Worksheets("Feuil1")
LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
If LastLig > 1 Then .Rows(2 & ":" & LastLig).Clear
NewLig = 2
For Each Ws In ThisWorkbook.Worksheets
If InStr("ANNEXE| Feuil1| PISTES A DVP| SYNTHESE|", Ws.Name & "|") = 0 Then ' entre "" mettre le nom de toutes les feuilles à exclure séparés d'un | et à l'agout d'un nouvel onglet ajouter le nom
LastLig = Ws.Cells(Ws.Rows.Count, 1).End(xlUp).Row
Ws.Rows("1:" & LastLig).Copy
.Range("A" & NewLig).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False
NewLig = NewLig + LastLig + 1
With .Cells
.FormatConditions.Delete
.Columns("AA:AZ").Clear
End With
End If
Next Ws
End With
End Sub