Copier coller premiere ligne vide
Bonjour la communauté.
Je cherche a copier coller des lignes extraites d'un fichier de Log dans un autre fichier de suivi. Par définition, j'ai besoin de coller les données dans la première ligne vide du fichier. J'ai essayé en commençant par un enregistreur de macro et en ajoutant une variable dernière ligne. Pourtant lorsque je lance la macro ca fonctionne jusqu'au collage. Ca saute plein de ligne de manière innexpliqué. Quelqu'un peut il me donner la solution ?
Peace
Sub Macro2()
'
' Macro2 Macro
Dim dlig As Long ' dernière ligne
dlig = Cells(Rows.Count, "A").End(xlUp).Row
MsgBox "Choisir le fichier de log 'Investissement Progressif'"
FileToOpen = Application.GetOpenFilename("Fichiers CSV(*.csv), *.csv", , "Choisir le fichier de log")
If FileToOpen = False Then
MsgBox "Operation annulée", vbExclamation
Exit Sub
End If
Workbooks.Open FileToOpen
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1)), _
TrailingMinusNumbers:=True
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$R$83").AutoFilter Field:=1, Criteria1:="KO"
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Contrôles_IP.xlsm").Activate
Sheets("Feuil2").Activate
Range("A1" & dlig).Select
ActiveSheet.Paste
End Sub