Sub Complete()
IndexM = Application.Match([A1], Sheets("2018-2019").Range("2:2"), 0)
' Dest est la liste des cellules où il faut copier
Dest = Array(10, 12, 14, 16, 21, 24, 26, 27, 29, 32, 34, 36)
' Sourec est la liste des cellules qu'il faut copier
Source = Array(3, 4, 6, 8, 13, 16, 18, 19, 21, 23, 25, 27)
For i = 0 To UBound(Dest)
Cells(Dest(i), 5) = Sheets("2018-2019").Cells(Source(i), IndexM)
Next i
End Sub