Copier/coller des lignes sous une condition

Voila, voila !

https://www.cjoint.com/c/DCBr2MqQdJ7

A+

Bonjour,

Macro à tester

Sub Copier()
Dim WsS As Worksheet, WsC As Worksheet
Dim Ligne As Integer
    Application.ScreenUpdating = False
    Set WsS = Worksheets("DM_2014")
    Set WsC = Worksheets("DM en attente 2014")
    For Ligne = 7 To 1000
        If WsS.Range("N" & Ligne) = "" Then
            WsS.Range("A" & Ligne).Resize(1, 16).Copy WsC.Range("A" & Ligne)
        End If
    Next Ligne
    Set WsC = Nothing: Set WsS = Nothing
End Sub

A+

Merci Gyrus de ton aide.

Malheureusement lorsque je lance la macro il y a un bug. Il me dit :
"Erreur d'exécution '91'
Variable objet ou variable de bloc with non définie"
et il surligne " WsS.Range("A" & Ligne).Resize(1, 16).Copy WsC.Range("A" & Ligne)" en jaune.

Je ne sais pas ce qu'il se passe, que faire ?

Merci encore.

Il faudrait voir le fichier.
Peux-tu joindre un exemple anonymisé avec https://www.cjoint.com/ ?

A+

Voici un exemple ci-dessous :
https://www.cjoint.com/?3CBqzoLc4NX

Bien sûr dans le vrai document il y a d'autres feuilles. Aussi dans le vrai fichier il n'existe pas du tout de macro encore.

Merci de votre aide.

Il faut écrire
Set WsC = Worksheets("DM en attente 2014")

De plus, au vu de ton fichier, je pense que la disposition des lignes collées ne va pas te convenir.
A te relire.

A+

C'est à peu près ce que je veux mais effectivement la disposition des lignes ne me convient pas. J'aimerais quelles soient les unes après les autres. Est-ce possible ?

Merci pour tout.