Private Sub CommandButton1_Click()
Dim i As Integer
Open ThisWorkbook.Path & "\Enregistrement " & Format(Now(), "dd mmm yyyy") & ".txt" For Append Shared As #1
For i = 1 To 3
Print #1, "Enregisrement" _
& vbCrLf & Sheets("feuil1").Range("A" & i).Value & vbCrLf & Sheets("feuil1").Range("B" & i).Value & vbCrLf & _
Sheets("feuil1").Range("C" & i).Value & vbCrLf & Sheets("feuil1").Range("D" & i).Value & vbCrLf
Next
Print #1, "Fin"
Close #1
End Sub