Sub Tri()
Dim tablo, tablo_out, i, indice
Application.ScreenUpdating = False
tablo = Range("A1:A" & Range("A1000000").End(xlUp).Row)
ReDim tablo_out(UBound(tablo))
For i = 1 To UBound(tablo)
If Not IsError(tablo(i, 1)) Then
tablo_out(indice) = tablo(i, 1)
indice = indice + 1
End If
Next i
[B1].Resize(UBound(tablo_out), 1).Value = Application.Transpose(tablo_out)
End Sub
Sub Tri()
Dim tablo, i, indice
Application.ScreenUpdating = False
tablo = Range("A1:A" & Range("A1000000").End(xlUp).Row)
indice = 1
For i = 1 To UBound(tablo)
If Not IsError(tablo(i, 1)) Then
tablo(indice, 1) = tablo(i, 1)
indice = indice + 1
End If
tablo(i, 1) = ""
Next i
[B1].Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
End Sub
Que l'on peut créer et supprimer par VBA si on tient à ne pas la voir...Un filtre avancé requiert une zone de critères.