For i = 11 To 34
For z = 115 To 137
Select Case i
Case 11 To 16
Select Case z
Case 115 To 120
A = Me("ListBox" & i).Text
If Application.CountIf(Range("A39:A45"), "=" & A) <> 0 And A <> "" And Me.Controls("TextBox" & z).Value <> "" Then
Ligne = Application.Match(A, Columns(1), 0)
Cells(Ligne, Colonne).Value = Q
compteur = 1
Colonne = Colonne + 1
If Application.WorksheetFunction.Sum(Cells(Ligne, Colonne + 1), Cells(36, Colonne + 1)) <> 0 And compteur <= Durée Then
Do
Cells(Ligne, Colonne + 1).Value = Q
compteur = compteur + 1
Loop
End If
ElseIf Application.CountIf(Range("A39:A45"), "=" & A) = 0 And A <> "" And Me.Controls("TextBox" & z).Value <> "" Then
Range("A45").End(xlUp).Offset(1, 0) = A
Ligne = Range("A45").End(xlUp).Row
Q = CDbl(Me.Controls("TextBox" & z).Value)
Cells(Ligne, Colonne).Value = Q
compteur = 1
Colonne = Colonne + 1
If Application.WorksheetFunction.Sum(Cells(Ligne, Colonne + 1), Cells(36, Colonne + 1)) <> 0 And compteur <= Durée Then
Do
Cells(Ligne, Colonne + 1).Value = Q
compteur = compteur + 1
Loop
End If
End If
End Select
Case 17 To 26
Select Case z
Case 121 To 129
A = Me("ListBox" & i).Text
If Application.CountIf(Range("A87:A128"), "=" & A) <> 0 And A <> "" And Me.Controls("TextBox" & z).Value <> "" Then
Ligne = Application.Match(A, Columns(1), 0)
Q = CDbl(Me.Controls("TextBox" & z).Value)
Cells(Ligne, Colonne).Value = Q
compteur = 1
Colonne = Colonne + 1
If Application.WorksheetFunction.Sum(Cells(Ligne, Colonne + 1), Cells(36, Colonne + 1)) <> 0 And compteur <= Durée Then
Do
Cells(Ligne, Colonne + 1).Value = Q
compteur = compteur + 1
Loop
End If
ElseIf Application.CountIf(Range("A87:A128"), "=" & A) = 0 And A <> "" And Me.Controls("TextBox" & z).Value <> "" Then
Range("A128").End(xlUp).Offset(1, 0) = A
Ligne = Range("A128").End(xlUp).Row
Q = CDbl(Me.Controls("TextBox" & z).Value)
Cells(Ligne, Colonne).Value = Q
compteur = 1
Colonne = Colonne + 1
If Application.WorksheetFunction.Sum(Cells(Ligne, Colonne + 1), Cells(36, Colonne + 1)) <> 0 And compteur <= Durée Then
Do
Cells(Ligne, Colonne + 1).Value = Q
compteur = compteur + 1
Loop
End If
End If
End Select
Case 27 To 34
Select Case z
Case 130 To 137
A = Me("ListBox" & i).Text
If Application.CountIf(Range("A49:A83"), "=" & A) <> 0 And A <> "" And Me.Controls("TextBox" & z).Value <> "" Then
Ligne = Application.Match(A, Columns(1), 0)
Q = CDbl(Me.Controls("TextBox" & z).Value)
Cells(Ligne, Colonne).Value = Q
compteur = 1
Colonne = Colonne + 1
If Application.WorksheetFunction.Sum(Cells(Ligne, Colonne + 1), Cells(36, Colonne + 1)) <> 0 And compteur <= Durée Then
Do
Cells(Ligne, Colonne + 1).Value = Q
compteur = compteur + 1
Loop
End If
ElseIf Application.CountIf(Range("A49:A83"), "=" & A) = 0 And A <> "" And Me.Controls("TextBox" & z).Value <> "" Then
Range("A83").End(xlUp).Offset(1, 0) = A
Ligne = Range("A83").End(xlUp).Row
Q = CDbl(Me.Controls("TextBox" & z).Value)
Cells(Ligne, Colonne).Value = Q
compteur = 1
Colonne = Colonne + 1
If Application.WorksheetFunction.Sum(Cells(Ligne, Colonne + 1), Cells(36, Colonne + 1)) <> 0 And compteur <= Durée Then
Do
Cells(Ligne, Colonne + 1).Value = Q
compteur = compteur + 1
Loop
End If
End If
End Select
End Select
Next z
Next i