Option Explicit
Private Sub Worksheet_Activate()
Dim Ws As Worksheet
Dim PlageSouce As Range, CellCible As Range
Dim LigneSource As Integer, LigneCible As Integer
Dim ColonneCible As Byte
Application.ScreenUpdating = False
LigneCible = IIf(Range('A65536').End(xlUp).Row = 1, 2, Range('A65536').End(xlUp).Row)
ColonneCible = Range('IV1').End(xlToLeft).Column
Range(Cells(2, 1), Cells(LigneCible, ColonneCible)).ClearContents
For Each Ws In ActiveWorkbook.Worksheets
With Ws
If .Name <> ActiveSheet.Name Then
LigneSource = IIf(.Range('A65536').End(xlUp).Row = 1, 2, .Range('A65536').End(xlUp).Row)
Set PlageSouce = .Range(.Cells(2, 1), .Cells(LigneSource, ColonneCible))
Set CellCible = Range('A65536').End(xlUp).Offset(1, 0)
PlageSouce.Copy CellCible
End If
End With
Next
Application.ScreenUpdating = True
End Sub