Salut l'équipe,
ainsi, j'obtiens ton T39 mais... serait-ce le hasard???
Je suppose que la différence de traitement entre ces deux lignes est logique?
If Cells(m1 + 46, k) = Cells(i, 1) & "-A" & (j - 2) / 2
Then Exit For
Cells(m + 46, k) = Cells(i, 1) & "-A" & j / 2
For k = dc1 To 1 Step -1
If Cells(m1 + 46, k) = Cells(i, 1) & "-A" & (j - 2) / 2 Then Exit For
Next k
If k = 0 Then dc1 = 1 Else dc1 = k
If dc < dc1 Then dc = dc1
For k = dc + 1 To dc + t
Cells(m + 46, k) = Cells(i, 1) & "-A" & j / 2
Cells(46, k) = k - 1
Next k
A suivre...
A+