Insérer une colonne sans écraser l'ancienne colonn

Bonjour,
je veux insere un colonne avec VBA sans écraser l'ancienne colonne. j'ai réalisé ce petit code qui permet d'importer un fichier csv et inserer une colonne au début de fichier mais il supprime la première colonne. Merci

Sub ImportCSV()
..........
F1.Select
Range("A1").Select
Selection.EntireColumn.Insert
For p = 1 To 1467
Cells(p, 2) = "Mai"

Next p
end sub