Insertion de textes en colonnes au lieu de lignes

Pour Excel 2000.
Je débute en VBA et j'ai créé un UserForm qui me permet d'entrer
des lignes dans un tableau Excel et ceci dans le sens vertical aussi
j'aimerais savoir si l'on peut faire la même chose dans le sens horizontal
c'est à dire créer des colonnes au lieu des lignes .
Ci joint le module que j'utilise pour faire mes lignes.

Private Sub CmdOk_click()
Sheets("Liste").Select
ActiveSheet.[Deb].Select
Selection.End(xlDown).Select
If Selection.Address = "$A$65536" Then
Range("Deb").Offset(1, 0).Select
Else
Selection.Offset(1, 0).Select
End If
ActiveCell.Value = UserForm1.Date
ActiveCell.Offset(1, 0).Value = UserForm1.Lieu1
ActiveCell.Offset(2, 0).Value = UserForm1.Lieu2
Unload Me
End Sub
Merci d'avance