Couper de Rows.Count/2 à max Rows.Count

Bonjour à toutes et tous,

J'aurais besoin d'un petit coup de main pour un code qui permettrai de couper la colonne D du tableau à partir de la moitié jusqu'à la fin. Le compte ne devant pas tenir compte de le ligne 1. Ici je cherche à couper de D99 à D194 et venir coller ces lignes en E2.

Si possible après supprimer les ligne qui n'ont plus de colonne 2.

Sachant que et c'est la que je bloque, le tableau à un nombre de ligne variable. En revanche, il commence toujours à la ligne 2 et qu'il sera toujours séparé en 2 moitiés égales.

Je vous d'avance remercie pour votre aide.

Bonjour Philippe,

Si j'ai bien compris, voici une possibilité

Sub CoupeMoitié()
  Dim dLig As Long, NbLig As Long, LigMoitié As Long
  With ActiveSheet
    dLig = .Range("D" & Rows.Count).End(xlUp).Row
    NbLig = dLig - 2:   LigMoitié = 3 + Int(NbLig / 2)
    .Range("D" & LigMoitié & ":D" & dLig).Cut
    .Range("E3").Select
    ActiveSheet.Paste
    ' Supprimer les lignes
    .Range("A" & LigMoitié & ":A" & dLig).EntireRow.Delete
  End With
End Sub

A+

Bonjour BrunoM45,

Vous avez très bien compris et ça fonctionne très bien je vous remercie beaucoup pour votre aide.

Si ça ne vous dérange pas, il y à un sujet que nous avons laissé en suspend https://forum.excel-pratique.com/excel/boucle-transfert-nom-onglet-182138.

Je vous remercie une nouvelle fois pour votre aide.

Bonne journée