Copie ligne dans autre classeur selon condition

Bonsoir,

En cliquant sur le bouton "Print" je souhaite créer un code pour :

Si la cellule de la colonne I = vide alors copie les cellules de la colonne A et C de la même ligne dans un new classeur.

J'ai commencer un bout de code mais sans résultat.

Quelqu'un pourrait-il m'aiguiller dans ce travail svp ?

En vous remerciant

Bonsoir,

stephb084 a écrit :

J'ai commencer un bout de code mais sans résultat.

pourrait-tu extraire ici le morceau de code censé effectuer cette copie ...

Voici le code en question :

Private Sub CommandButton1_Click()

Dim l As Integer
l = Sheets("Enregistrement").Range("A65536").End(x1Up).Row

If Sheets("Enregistrement").Range("I" & l).Value = "" Then
Range("A" & l & "c" & l).Select
Selection.Copy
End If

Workbook.Add

ActiveSheet.Paste

End Sub

  
Private Sub CommandButton1_Click()
Dim l As Integer
Dim r As Range
With  ThisWorkBook.Sheets("Enregistrement")
    l = .Range("A65536").End(x1Up).Row
    If   .Range("I" & l).Value = "" Then
       Set r = Union(.Range("A" & l ), .Range("C1" & l))
       r.Copy Workbooks.Add().Sheets(1).Range("A1")
   End If
End Sub

Désolé du retard,

C'est résolu

Merci a tous