Copie ligne si cellule vide

Bonjour à tous!!

Je suis à la recherche d'une macro qui permettrait de détecter toutes les cellules vides dans ma colonne B. Et alors sa copierait la ligne correspondante de cette cellule vide dans une feuille2, les une sous les autres.

Je mets en pièce jointe un tableau explicatif:

MERCI D'AVANCE!!

Bonjour,

Essaie avec ce code

Sub Copier()
Dim WsS As Worksheet, WsC As Worksheet
Dim Cel As Range
    Set WsS = Worksheets("Feuil1")
    Set WsC = Worksheets("Feuil2")
    For Each Cel In WsS.Range("B1:B" & WsS.Range("B" & Rows.Count).End(xlUp).Row)
        If IsEmpty(Cel) Then
            Cel.EntireRow.Copy
            WsS.Paste Destination:=WsC.Rows(WsC.Range("A" & Rows.Count).End(xlUp).Row + 1)
        End If
    Next Cel
    Application.CutCopyMode = False
    Set WsC = Nothing: Set WsS = Nothing
End Sub

A+

Merci frangy!!

Impec!! juste ce qu'il me fallait^^ !!

Pourrais tu me donner quelques explications sur la fin de ton code??

   Next Cel
    Application.CutCopyMode = False
    Set WsC = Nothing: Set WsS = Nothing
End Sub

Merci!!

Application.CutCopyMode = False annule le mode Copier, ce qui évite de conserver la plage copiée avec le marquage en pointillés en fin de procédure.

Set WsC = Nothing: Set WsS = Nothing

permet de libèrer l'ensemble des ressources système et mémoire associées à l'objet référencé.

Bien que facultatif, c'est une bonne habitude à prendre.

A+

Merci pour les infos!!

Bonne journée.