Supprimer cellules vides

Question

Tout nouveau sur le forum et débutant en VBA, je salut la communauté de Excel-Pratique. Je cherche deux choses. Supprimer toutes les lignes dans Feuil1 par rapport à une colonne qui contient des cellules vides. Dans mon exemple joint la colonne et M Je recherche également à supprimer dans la feuille base une fois la copie faite dans la Feuil1 les lignes qui ne sont pas vides par rapport à la colonne M. La macro qui se trouve dans le fichier me supprime pour toutes les cellules vides, je n'arrive qu'à m'arrêter à la dernière cellule contentant une valeur. Merci à ceux qui pourront m'aider. ...

ThauThème · Accepted Answer

Bonjour Tespark et bienvenu, bonjour le forum,

Essaie comme ça :

Sub copie()
Dim OB As Worksheet
Dim OA As Worksheet
Dim DEST As Range
Dim DL As Integer
Dim I As Integer

Set OA = Worksheets("Feuil1")
Set OB = Worksheets("Base")
Set DEST = OA.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0)
OB.Range("A3").CurrentRegion.Copy DEST
DL = OA.Cells(Application.Rows.Count, "A").End(xlUp).Row
For I = DL To 2 Step -1
    If OA.Cells(I, "M").Value = "" Then OA.Rows(I).Delete
Next I
DL = OB.Cells(Application.Rows.Count, "A").End(xlUp).Row
For I = DL To 3 Step -1
    If OB.Cells(I, "M").Value <> "" Then OB.Rows(I).Delete
Next I
End Sub