If i > 1 Then
If Not IsEmpty(TabTemp(i, 7)) Then _
TabTempBis(i, 5) = CDbl(Replace(TabTemp(i, 7), ".", ",")) ' Débit
If Not IsEmpty(TabTemp(i, 8)) Then _
TabTempBis(i, 6) = CDbl(Replace(TabTemp(i, 8), ".", ",")) ' Crédit
Else
If Not IsEmpty(TabTemp(i, 7)) Then _
TabTempBis(i, 5) = TabTemp(i, 7) ' Débit
If Not IsEmpty(TabTemp(i, 8)) Then _
TabTempBis(i, 6) = TabTemp(i, 8) ' Crédit
End If