Sub Sortir_les_6()
Dim tablo, resu(), i&, j%, n2&, n1&
With Feuil1 'CodeName de la feuille, à adapter
tablo = .[A1].CurrentRegion.Resize(, 2)
ReDim resu(1 To 2 * UBound(tablo), 1 To 2)
For i = 2 To UBound(tablo) '2 car en-têtes
For j = 1 To 2 '2 colonnes
If Left(tablo(i, j), 1) = 6 Then
n2 = n2 + 1
resu(n2, 2) = tablo(i, j)
ElseIf tablo(i, j) <> "" Then
n1 = n1 + 1
resu(n1, 1) = tablo(i, j)
End If
Next j, i
'---restitution---
n1 = IIf(n1 > n2, n1, n2)
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
With .[A2] 'cellule à adapter
If n1 Then .Resize(n1, 2) = resu
.Offset(n1).Resize(Rows.Count - n1 - .Row + 1, 2).ClearContents 'RAZ en dessous
End With
With .UsedRange: End With 'actualise la barre de défilement verticale
End With
End Sub