Une petite macro vite faite
Dim li_liste_ini, li_liste_fini, col_liste_ini, col_liste_fini As Integer
li_liste_ini = 2 'numéro de ligne où commence ta liste
li_liste_fini = 2 'numéro de ligne où commence ta recopie
col_liste_ini = 1 'numéro de colonne où est ta liste
col_liste_fini = 5 'numéro de colonne où est ta recopié
While Cells(li_liste_ini, col_liste_ini) <> ""
If IsNumeric(Cells(li_liste_ini, col_liste_ini)) Then
li_liste_ini = li_liste_ini + 1
Else
Cells(li_liste_fini, col_liste_fini) = Cells(li_liste_ini, col_liste_ini)
li_liste_fini = li_liste_fini + 1
li_liste_ini = li_liste_ini + 1
End If
Wend
a mettre dans l'évenement d'un click de bouton ou une macro perso
si tu veux tu peux imaginer des input box pour demande les colonnes ou ligne