Problème de cellules vides

Bonsoir le forum

Je me tourne une nouvelle fois vers vous car je sèche sur une macro

Je transpose une plage de cellule vers une autre feuille, jusque là, pas de soucis.

Ce que je n'arrive pas à faire c'est enlever les cellules vides une fois le transfert effectué.

Merci d'avance pour vos propositions

ps : je joint un fichier exemple

Bonsoir,

un essai voir si cela te conviens.

Cordialement.

Bonjour,

A adapter dans ton vrai fichier.

Cdlt.

Option Explicit

Private Sub cmdTransposer_Click()
Dim ws As Worksheet, ws2 As Worksheet
Dim rngData As Range

    Set ws = ActiveSheet
    Set ws2 = Worksheets("Feuil2")

    ws2.Cells.ClearContents

    Set rngData = ws.UsedRange    
    rngData.Copy Destination:=ws2.Cells(6, 1)
    Set rngData = ws2.UsedRange.SpecialCells(xlCellTypeBlanks)
    rngData.Delete Shift:=xlUp

    With ws2
        .Activate
        .[A1].Select
    End With

    Set rngData = Nothing
    Set ws2 = Nothing: Set ws = Nothing

End Sub

Bonjour

Un grand merci bigdaddy154 et Jean-Eric

cela fonctionne à merveille dans les 2 cas !

je vais maintenant pouvoir avancer sur le reste .....

bon week-end

Mag