Sub Test2()
TxtPlage "Toto.txt", [A1:B2]
End Sub
Sub TxtPlage(ByVal RéfFic As String, ByVal Plg As Range)
Dim Te(), Ts() As String, L&, C&
Te = Plg.Value: ReDim Ts(1 To UBound(Te, 2))
Open RéfFic For Output Access Write As #1
For L = 1 To UBound(Te, 1)
For C = 1 To UBound(Te, 2): Ts(C) = Te(L, C): Next C
Print #1, Join(Ts, vbTab): Next L
Close #1
End Sub