Private Sub Worksheet_Activate()
Dim r As Range
Application.ScreenUpdating = False
Sheets("EXPORT").[A:O].Copy [A1]
[A:C].Insert 'insertion de 3 colonnes
For Each r In [Q:Q].SpecialCells(xlCellTypeConstants).EntireRow.Areas
r.Cells(0, 4).Resize(, 3).Copy r.Resize(, 3)
Next
[Q:Q].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub