ActiveCell.EntireRow.Select + Cellule Fusionné

Bonjour

Je suis un peu nouveau en VBA et je suis en train de faire une macro qui copie et ajoute une ligne en dessous (en gardant les mêmes paramètres et autres formes conditionnelles)

Pour cela, je fais ceci :

 ' je sélectionne ma ligne entière
    ActiveCell.EntireRow.Select

   ' J 'en fait une copie
    Selection.Copy

    ' je sélectionne la cellule en dessous en me décalant d'une ligne et je colle ma selection
      ActiveCell.Offset(1, 0).Insert

Cela marche très bien, sauf dans le cas ou j'ai une cellule fusionné.Dans ce cas là, le "ActiveCell.EntireRow.Select" me sélectionne les deux lignes alors que je veux en copier qu'une seule pourtant quand j'affiche via msgbox le ActiveCell.EntireRow.Select, il me sort que le numero de la ligne active)Savez-vous comment je peux faire pour régler ce problème?

Merci beaucoup de votre aide sur le sujet.

CordialementNicolas

Bonjour,

peut-être ainsi. Si c'est Entire Row qui est copié alors il faut aussi faire une sélection sur la ligne en dessous complète et pas seulement sur ActiveCell.Offset(1, 0)

ActiveCell.EntireRow.Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(1, 0).Select
    ActiveCell.EntireRow.Select
    Selection.Insert Shift:=xlDown
    Selection.ClearContents
    ActiveCell.Offset(1, 0).Select