Supprimer lignes dans fichier excel

Bonjour,
j'ai un fichier excel de 21000 lignes. il comporte 2 lignes écrites puis 2 lignes vides que je voudrais supprimer automatiquement.
j'ai essayé de faire une macro mais celle-ci me supprime également les lignes écrites,
Pourriez-vous m'aider à automatiser la suppression de ces lignes vides
par avance merci
Configuration: Windows XP
Internet Explorer 7.0

5 réponses

  1. « Sélectionner tout » puis clic « trier de A à Z »
    0
    1. Ps: Mais, si t’as des formules à chaque ligne, tu sélectionnes avec la souris la première ligne jusqu’au dernier, et tu clic « trier de A à Z » pour que tu ne perdras pas tes formules
      0
      1. Contributeur
        Bonjour
        en se basant sur la colonne A:supprime la ligne vide

        Dim derlig As Long
        derlig = Range("A65536").End(xlUp).Row
        Range("A1:A" & derlig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        0
        1. Sub supp()
          Dim Cel_vide As Range
          Dim ad_cel As Integer

          For Each Cel_vide In Range('A1:A21000')
          If Cel_vide.Value = '' Then
          ad_cel = Cel_vide.Row
          Rows(ad_cel).Delete
          End If
          Next Cel_vide
          End Sub

          ca vien de ce site : https://www.excel-downloads.com/threads/supprimer-une-ligne-si-une-cellule-est-vide.52934/
          0
          1. Contributeur
            Bonjour,
            C'est pas nécessaire de faire de la pub pour d'autre site alors que la solution donnée par Michel_m est beaucoup mieux adaptée.
            A+
            0
        2. desolé , je vouler seulment mettre la source ( pour garantire un peut les droit intelectuelle )
          0