Bonjour à tous

Voila, j'ai un petit problème lors de la réalisation de ma page, afin d'y réaliser un balayage futur

Voila le problème, je n'arrive pas a déterminer ma mise ne place de mes cellules.

de la forme
_______________Init__________
__________________Entry______
_______________________Entry_
__________________Exit_______ 3 lignes en plus

Init correspond à la valeur de calcul final antérieur
Si j'ai entry, je passe à la colonne suivante, si j'ai Exit, je reviens en arrière.

Mais sa ji arrive pas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
'Mise ne place des calculs
    N = Feu.Cells(i - 1, 14).Value  'Valeur init
    Bal.Activate
    Cells(1, N).Value = "Init"   'je met en place Init
    derlp = Bal.Cells(65536, 1).End(xlUp).Row  
                       'je compte mon nombre de ligne en plus
    For i = 2 To derlp
        If Cal.Cells(i, 2).Value = "Entry" Then
            Bal.Cells(i, x).Value = "Entry"
        If Cal.Cells(i, 2).Value = "Exit" Then
            Bal.Cells(i, x).Value = "Exit"
voila le truc, x je n'arrive pas à le remplacer.

Merci