Modification macro couper coller

[Romulux]

Dans la macro ci-dessous,"le couper" ne se fait que sur la ligne 16, que dois-je modifier pour que cele-ci se fasse également sur les lignes 17, 18, 19,...
Est-il possible au modérateur de supprimer la question "elargissement multi-cellule sur une macro" trop vague et floue pour comprendre quoi que ce soit.
Merci d'avance de votre aide.

Sub MAJ()
Range("A10").Select
While ActiveCell <> "Date de valeur"
ActiveCell.Offset(1, 0).Select
Wend
ActiveCell.Offset(1, 0).Select
a = ActiveCell
ActiveCell = ""
b = ActiveCell.Offset(0, 1)
ActiveCell.Offset(0, 1) = ""
c = ActiveCell.Offset(0, 2)
ActiveCell.Offset(0, 2) = ""
d = ActiveCell.Offset(0, 3)
ActiveCell.Offset(0, 3) = ""
e = ActiveCell.Offset(0, 4)
ActiveCell.Offset(0, 4) = ""
f = ActiveCell.Offset(0, 5)
ActiveCell.Offset(0, 5) = ""
Range("a3").Select
While ActiveCell < a Or ActiveCell = ""
ActiveCell.Offset(1, 0).Select
If ActiveCell = "" Then
GoTo ligne1
End If
Wend
ligne1:
Selection.EntireRow.Insert
ActiveCell = a
ActiveCell.Offset(0, 1) = b
ActiveCell.Offset(0, 2) = c
ActiveCell.Offset(0, 3) = d
ActiveCell.Offset(0, 4) = e
ActiveCell.Offset(0, 5) = f

End Sub
au cas où voilà le fichier

 

[Catrice]

Re : Modification macro couper coller

Bonjour,

Par rapport à ce que j'ai compris, ci-joint une solution.
Pour faciliter le travail, la cellule sous "Date Valeur" est nommée

NB - Evite de multiplier les post pour le meme sujet (cf. https://www.excel-downloads.com/threads/elargissement-en-multi-cellule-sur-macro.79085/)