Sélection de colonnes

rerere!!
Je sais je suis un peu nulle lol! désolée de vous embeter mais je ne comprends pas pourquoi toutes les informations saisies s'écrivent les une à la suite des autres dans la même colonne, alors que mes fonctions font sélectionner les bonnes colonnes???
Quelqu'un peut m'aider (encore une fois lol)???

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Sub Ludi()
 
 
Call site
Call nom
Call typepc
Call idwin
Call idoff
 
End Sub
 
Sub site()
    Sheets("Feuil1").Columns("b:b").Select
     i = 1
    While Cells(i, 1) <> ""
        i = i + 1
    Wend
    Cells(i, 1) = InputBox("Saisissez le site sur lequel vous travaillez")
End Sub
 
Sub nom()
    Sheets("Feuil1").Columns("c:c").Select
     i = 1
    While Cells(i, 1) <> ""
        i = i + 1
    Wend
    Cells(i, 1) = InputBox("Saisissez votre nom")
End Sub
 
Sub typepc()
    Sheets("Feuil1").Columns("d:d").Select
     i = 1
    While Cells(i, 1) <> ""
        i = i + 1
    Wend
    Cells(i, 1) = InputBox("Saisissez le type d'ordinateur sur lequel vous travaillez (PC ou portable)")
End Sub
 
Sub idwin()
    Sheets("Feuil1").Columns("e:e").Select
    i = 1
    While Cells(i, 1) <> ""
        i = i + 1
    Wend
    Cells(i, 1) = InputBox("Saisissez l'Id Windows")
End Sub
 
Sub idoff()
    Sheets("Feuil1").Columns("f:f").Select
     i = 1
    While Cells(i, 1) <> ""
        i = i + 1
    Wend
    Cells(i, 1) = InputBox("Saisissez l'Id office")
End Sub

Voila!