il te faudra modifierJ'ai pas que quatre (4) feuil j'ai plus de 100 feuil..
For i = 2 To 5
For i = 2 To nombre_de_feuilles
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
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
End If
Next i
[C2].Select
Application.ScreenUpdating = True
End Sub
For i = 1 To 150 ' le_nombre_exact_de_feuilles
If Sheets(i).Name <> "GLOBALE" Then