Re!
Est ce que quelqu'un pourrait essayer mon code et me dire pourquoi la première fonction ne saute pas de cellule alors que toutes les autres oui. Pourtant il me semble bien que le code de chacune est identique et que la structure aussi!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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, 2) = 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, 3) = 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, 4) = 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, 5) = InputBox("Saisissez l'Id office")
End Sub