Private Sub PasteValuesRéflectanceOO(Colonne As Integer, j As Integer)
ThisWorkbook.Activate 'On retourne au classeur où s'execute la macro
ActiveSheet.Cells(1, 1).Value = "Wavelength"
'ActiveSheet.Cells(1, 2).Value = colValues.Item(j)
ActiveSheet.Range(Cells(2, Colonne), Cells(2, Colonne + 1)).Select 'et on choisit la case de la premiere ligne de la colonne donnée en parametre
ActiveSheet.Paste 'pour coller dans la même colonne les données copiées.
End Sub