If X(a) > 0 Then
If (E(0) < 2) Then
If (Cells(C, 11) <> Cells(C - 1, 11)) Then
Cells(C, 11) = Cells(N, 3)
Cells(C, 12) = X(a)
X(a) = X(a) - 1
Else
Colonne = Int(C / 3)
ICI LE CODE POUR INSERER Cells(N, 3) dans Cells(Colonne,11)
X(a) = X(a) - 11
End If
Else
End If
Else
ActionTotal = ActionTotal + 1
C = C - 1
End If