Couper/coller cellules non adjacentes

Bonjour

J'aurai besoin d'un petit coup de main :

Je souhaite faire évoluer , vers le haut,des données non adjacentes de lignes d'un tableau

Le but est d'effacer le contenu de certaines cellules (pas les formules)de la la première ligne et faire remonter les infos des autres lignes

Merci de votre aide

Bonjour,

Un fichier exemple ?

P.

patrick1957 a écrit :

Bonjour,

Un fichier exemple ?

P.

c est un fichier pro confidentiel donc impossible a diffuser

re,

celle là , on nous la faite déjà....

c'est pas difficile de faire une copie anonymisée je pense

P.

Bonjour Patrick

Et merci de ta reponse, tu as raison dans le principe, j'en ai un mais pas possible pour le moment par telephone , je vois ce soir

voila

l'idee est de faire disparaitre les infos de la premiere ligne et faire remonter les autres

visiblement ca ne change pas grand chose

patrick1957 a écrit :

re,

celle là , on nous la faite déjà....

c'est pas difficile de faire une copie anonymisée je pense

P.

je plussoie ... mipec n'a pas l'habitude de prendre la peine d'envoyer un bout de fichier au départ !

mipec a écrit :

visiblement ca ne change pas grand chose

Sub remonter()
    Rows("4:18").Select
    Selection.Copy
    Range("A2").Select
    ActiveSheet.Paste
End Sub

disons que je n'ai pas d'habitude tout court sur le forum , ca me laisse une bonne marge de progrès

merci steelson,mais le tableau est bloqué ou terriblement ralenti