cherche macro

[Jemni]

Salut tout le monde,
Voilà, je cherche une Macro sur excel qui me permet de couper les cellules (A4-B4-C4 et D4), les coller sur la ligne suivante(A5-B5-C5 et D5) et enfin, de les copiers sur les lignes suivantes si elles sont vides. C'est pas évident je comprendre exactement ce que je cherche, c'est pour ça que j'ai joint un fichier pour mieux comprendre.
merci pour l'attention et j'éspére avoir une réponse le plus vite possible.

 

[OnErrorResumeNext]

bonjour Jemni,

je t'ai concocté cette macro que tu peux copier dans le module de ta feuille et tester :

-------------------------------------------------------------------------------------
Sub reOrganise()
Application.ScreenUpdating = False
LstR = [E65536].End(xlUp).Row
For i = 4 To LstR
If Range("A" & i) <> "" And Range("E" & i) = "" Then
Range("A" & i & "" & i).Cut
Range("A" & i + 1 & "" & i + 1).Select
ActiveSheet.Paste
End If
Next

For i = 4 To LstR
If Range("A" & i).Text = " " And Range("E" & i).Text <> " " Then
Range("A" & i - 1 & "" & i - 1).Copy Destination:=Range("A" & i & "" & i)
End If
Next

End Sub
--------------------------------------------------------------------------------------

n'oublie pas de travailler sur une copie de ton classeur,


amicalement

 

[jemni]

merci pour ton aide,
ça marche!