Créer une mise en page automatique

Bonjour,

Je souhaiterais créer sur mon tableau, un bouton avec une macro pour pouvoir créer une mise en page automatique.

J'ai essayé avec l'enregistreur de macro mais le résultat obtenu ne me convient pas.

En fait j'ai un tableau, identique sur 200 pages environ et je souhaiterais que quand je lance la macro, qu'elle détecte si la case "QTE" est vide. Si oui, cela veut forcément dire que ma ligne est entièrement vide, donc la supprimer (seulement de la colonne B à la colonne M) en remontant les autres lignes mais sans modifier le tableau (je dois conservé mes 42 lignes du tableau et le total page ne dois pas changer de place).

Sur le fichier excel en Feuil1 le tableau comme il existe actuellement et en Feuil2 le tableau comme j'aimerais qu'il soit après utilisation de la macro.

J'arrive à supprimer les lignes vides, mais quand je remonte les autres, la mise en page de mon tableau change complètement.

Merci de votre aide.

Bonjour,

Cette macro ne changera pas la mise en page :

Sub Galopin()
Dim a, i%, iLC%, ii%, iC%
With ActiveSheet
    a = .[B4:M45].Value
    iLC = 4
    ii = 1
    For i = 1 To UBound(a)
        If a(i, 1) <> "" Then
            For iC = 1 To UBound(a, 2)
                a(ii, iC) = a(i, iC)
            Next
            ii = ii + 1
        End If
    Next
    For i = ii To UBound(a)
        For iC = 1 To UBound(a, 2)
            a(ii, iC) = ""
        Next
        ii = ii + 1
    Next
    .[B4:M45] = a
End With
End Sub

A+