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