excel et wordpad

Macro5 Macro
'
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "janvier"
    Range("B2").Select
    Selection.AutoFill Destination:=Range("B2:M2"), Type:=xlFillDefault
    Range("B2:M2").Select
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("B6").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("B7").Select
    ActiveCell.FormulaR1C1 = "3"
    Range("B8").Select
    ActiveCell.FormulaR1C1 = "4"
    Range("B9").Select
    ActiveCell.FormulaR1C1 = "5"
    Range("B10").Select
    ActiveCell.FormulaR1C1 = "6"
    Range("B11").Select
    ActiveCell.FormulaR1C1 = "7"
    Range("B5:B11").Select
    Selection.AutoFill Destination:=Range("B5:B36"), Type:=xlFillDefault
    Range("B5:B36").Select
    Range("B36").Select
    ActiveWindow.SmallScroll Down:=-15
    Range("B5:B35").Select
    Selection.AutoFill Destination:=Range("B5:M35"), Type:=xlFillDefault
    Range("B5:M35").Select
End Sub

Sub test()
 ActiveCell.FormulaR1C1 = "1"
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("B2:B3").Select
    Selection.AutoFill Destination:=Range("B2:B35"), Type:=xlFillDefault
    Range("B2:B35").Select
    Range("C34").Select
    ActiveWindow.SmallScroll Down:=-15
    Range("B2:B35").Select
    Selection.AutoFill Destination:=Range("B2:M35"), Type:=xlFillDefault


Dim c As Range

With ActiveWorkbook.Sheets("INTEGRATION")
    .Copy
With Range(Range("B1"), Selection.End(xlDown))
    .Copy
    .PasteSpecial Paste:=xlPasteValues
End With
ChDir "C:\"
    .SaveAs Filename:="C:\INTEGRATION.txt", FileFormat:= _
xlTextPrinter, CreateBackup:=False
End With

'je voulais réduire la plage de données précédentes (de B à J) et écrire les colonnes restantes ( de K à M) à la fin du fichier .txt 
' mais le programme n'accepte pas ce que je lui demande

'Close #1

'Open "C:\INTEGRATION.txt" For Append As #1
 '    Print #1, vbCrLf
  '  Print #1,
   ' With Range(Range("K1"), Selection.End(xlDown))
   ' .Copy
    '.PasteSpecial Paste:=xlPasteValues
'End With
'Print #1,
 ' Close #1



End Sub