Sub Copier_Coller()
Dim plage As Range, cel As Range, tablo&(), n&, i&
With Sheets("Inscription").[C3:D200]
Set plage = Sheets("Trie").[F3].Resize(.Rows.Count, .Columns.Count)
.Copy plage 'pour les formats
plage = .Cells.Value 'pour les valeurs
End With
For Each cel In plage.Columns(1).Cells
If cel.Interior.ColorIndex <> xlNone Then
ReDim Preserve tablo(n)
tablo(n) = cel 'mémorisation
cel = 0 'pour le tri (cellules jaunes en tête)
n = n + 1
End If
Next
plage.Sort plage(1), xlAscending, Header:=xlNo 'tri
If n Then
For i = 0 To n - 1
plage(1) = tablo(i) 'valeur mémorisée
plage.Rows(1).Cut 'couper-insérer
plage(1 + n + i, 1).Insert xlDown
Next
End If
plage.Parent.Activate
End Sub