Synthese de Données

Dim Lcible As Integer
Dim Plage As Range
    Range("B8:H1000").ClearContents
For Each WS In Worksheets
Lcible = Worksheets("General").Range("B65536").End(xlUp).Row + 1
 If WS.Name <> "Menu" And WS.Name <> "Estimation Temps" [COLOR=red]And WS.Name <> "General"[/COLOR] Then
    With WS
    [COLOR=red]If .Range("B65536").End(xlUp).Row > 7 Then
[/COLOR]     L = .Range("B65536").End(xlUp).Row
      C = .Range("B9").End(xlToRight).Column
      Set Plage = .Range(Cells(8, 1).Address, Cells(L, C).Address)
      Plage.Copy Destination:=Worksheets("General").Range("A" & Lcible)
    [COLOR=red]End If
[/COLOR]   End With
 End If
Next WS
End Sub