Private Sub Worksheet_Activate()
Dim t1, t2$(), i&, j&
t1 = Feuil1.[A1].CurrentRegion.Resize(, 4) 'Feuil1 est le CodeName de la feuille source
ReDim t2(1 To 2 * UBound(t1) - 1, 1 To 3)
For i = 1 To UBound(t2)
j = 1 + i \ 2
t2(i, 1) = t1(j, 1): t2(i, 2) = t1(j, 2): t2(i, 3) = t1(j, 3 + i Mod 2)
Next
t2(1, 3) = "Couleur"
If FilterMode Then ShowAllData 'si la feuille est filtrée
[A1].Resize(i - 1, 3) = t2 'restitution
Range("A" & i & ":C" & Rows.Count).ClearContents 'RAZ sous le tableau
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub