Private Sub Worksheet_Activate()
Dim i As Long
Application.ScreenUpdating = False
Range("A:L").ClearContents
If Sheets("Resultat").FilterMode Then Sheets("Resultat").AutoFilter
With Sheets("zone1")
.Range("A3").CurrentRegion.Copy Range("A3")
End With
With Sheets("zone2")
If .Cells(.Rows.Count, "a").End(xlUp).Row >= 4 Then _
.Range(.Range("A4"), .Cells(.Cells(.Rows.Count, "a").End(xlUp).Row, "L")).Copy _
Cells(Rows.Count, "a").End(xlUp).Offset(1)
End With
With Sheets("zone3")
If .Cells(.Rows.Count, "a").End(xlUp).Row >= 4 Then _
.Range(.Range("A4"), .Cells(.Cells(.Rows.Count, "a").End(xlUp).Row, "L")).Copy _
Cells(Rows.Count, "a").End(xlUp).Offset(1)
End With
For i = Cells(Rows.Count, "a").End(xlUp).Row To 4 Step -1
If Cells(i, "L") = "" Then Cells(i, "L").EntireRow.Delete
Next i
Range("A3:L3").AutoFilter
Application.ScreenUpdating = True
End Sub