Sub test()
Dim i&, J&, K&, Rw&
Dim TData As Variant, Tmp As Variant, TmpFilm As Variant
Dim Sh As Worksheet
Set Sh = Sheets("Resultat proposé") 'A adapter
With Sheets("Festivals") ' a adapter
TData = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(3)(1, 6))
End With
For i = LBound(TData, 1) To UBound(TData, 1)
Tmp = Split(TData(i, 6), Chr(10))
Rw = Sh.Cells(Sh.Rows.Count, 1).End(3)(2).Row
For J = LBound(Tmp) To UBound(Tmp)
For K = 1 To 5
Sh.Cells(Rw + J, K) = TData(i, K)
Next K
TmpFilm = Split(Tmp(J), "(")
Sh.Cells(Rw + J, 6) = TmpFilm(0)
If UBound(TmpFilm) = 2 Then Sh.Cells(Rw + J, 7) = Replace(TmpFilm(1), ")", "")
Sh.Cells(Rw + J, 8) = Split(TmpFilm(UBound(TmpFilm)), ")")(0)
Next J
Next i
Sh.Columns.AutoFit
End Sub