Sub te()
FIN = Sheets("Copie-CMDE").Cells(Rows.Count, "A").End(xlUp).Row
With Sheets("Planning ALU")
valeuraffaires = .Cells(65, 1).Value
Nbraffaires = .Cells(64, 2).Value
For k = 2 To FIN
a = 65
For t = 0 To Nbraffaires + 3
If Sheets("Copie-CMDE").Cells(k, 8) = .Cells(a, 5) Then
i = a
While .Cells(i, 4) <> "Sous traitance / Achats :"
i = i + 1
Wend
j = i + 2
.Rows(j).Insert
.Cells(j, 4) = Sheets("Copie-CMDE").Cells(k, 11)
.Cells(j, 7) = Sheets("Copie-CMDE").Cells(k, 14)
.Cells(j, 11) = Sheets("Copie-CMDE").Cells(k, 18)
.Cells(j, 15) = Sheets("Copie-CMDE").Cells(k, 22)
.Cells(j, 17) = Sheets("Copie-CMDE").Cells(k, 24)
.Cells(j, 17) = Sheets("Copie-CMDE").Cells(k, 24)
.Cells(j, 18) = Sheets("Copie-CMDE").Cells(k, 25)
While .Cells(j, 1) = ""
j = j + 1
Wend
b = .Cells(j, 1).Value
a = j
Else
b = .Cells(a, 1).Value
a = a + b
End If
Next t
Next k
End With
End Sub