Bonjour,

Tout est dans le titre, la macro bloque avec le message comme quoi il me manque un If, voilà ce que j'ai écrit :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
        For Each Account In .Range("E2:E" & LR2)
        AccType = Left(Account, 1)
            If AccType = "6" Then Account.Offset(0, 1).Value = Account.Offset(0, -3).Value
                If AccType = "7" Then Account.Offset(0, 1).Value = Account.Offset(0, -3).Value * -1
                    If Account.Value = "117" Then Account.Offset(0, 1).Value = (Account.Offset(0, -2).Value - Account.Offset(0, -1).Value) * -1
            Else
                Account.Offset(0, 1).Value = Account.Offset(0, -2).Value - Account.Offset(0, -1).Value
                    End If
                End If
            End If
        Next Account
Pouvez-vous m'aider à corriger SVP ?

D'avance merci !