Workbooks("Import.xls").Sheets("Val").Cells(f, 1) = Workbooks("classeur").Sheets("k").Cells(Q9) '.Value
Workbooks("Import.xls").Sheets("Val").Cells(f, 1) = Workbooks("Classeur.xls").Sheets("k").Range("Q9").Value
.Sheets("k")
Workbooks("Import.xls").Sheets("Val").Cells(f, 1) = Workbooks("Classeur.xls").Sheets(k).Range("Q9").Value