Private Sub Worksheet_Activate()
Cells.Delete 'RAZ
On Error Resume Next 'si aucune SpecialCell
With Feuil1.UsedRange.Offset(1).SpecialCells(xlCellTypeConstants) 'Feuil1 => CodeName
Intersect(.Cells(0, 1).EntireRow, .EntireColumn).Copy [A1] 'titres
Intersect(.EntireRow, .EntireColumn).Copy [A2]
End With
With UsedRange: End With 'actualise les barres de défilement
End Sub