Bonjour,
une proposition de correction de ton code. compilation des données des feuilles dont le nom commence par EGT
'-------------------------------------------------------------------------------------------------------
'Recherche date du report d'anomalie
'-------------------------------------------------------------------------------------------------------
ligne = 4
lignesynthese = 4
For Each ws In Worksheets
If Left(ws.Name, 3) = "EGT" Then
Do Until ligne = 100
DateLigne = ws.Cells(ligne, 2)
If DateLigne >= DateDebut And DateLigne <= DateFin Then
colonne = 2
Do Until colonne = 19
'Sheets("Synthese").Range("B4:Z4").Copy Sheets("Synthese").Range("B5:Z5")
Worksheets("Synthese").Cells(lignesynthese, colonne) = ws.Cells(ligne, colonne)
colonne = colonne + 1
Loop
lignesynthese = lignesynthese + 1
End If
ligne = ligne + 1
Loop
Next ws
Worksheets("Synthese").Select