Sub Macro1()
Sheets("GLOBALE").Select
Application.ScreenUpdating = False
Range("B6:E" & Range("B65535").End(xlUp).Row + 1).ClearContents
For i = 1 To 150 ' le_nombre_exact_de_feuilles
If Sheets(i).Name <>"GLOBALE" Then
Sheets(i).Select
Range("B8:B" & Range("B65535").End(xlUp).Row).Select
Selection.Copy
Sheets("GLOBALE").Select
Range("B" & Range("B65535").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(i).Select
Range("E8:E" & Range("B65535").End(xlUp).Row).Select
Selection.Copy
Sheets("GLOBALE").Select
Range("E" & Range("E65535").End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End If
[C2].Select
Application.ScreenUpdating = True
End Sub