With Worksheets(1)
.Activate
.Cells(i, 23).Value = Worksheets("intervalle jour").Cells(26, 1).Value
.Cells(i, 24).Value = Worksheets("intervalle jour").Cells(26, 2).Value
.Cells(i, 25).Value = Worksheets("intervalle jour").Cells(26, 3).Value
.Cells(i, 26).Value = Worksheets("intervalle jour").Cells(26, 4).Value
.Cells(i, 27).Value = Worksheets("intervalle jour").Cells(26, 5).Value
.Cells(i, 28).Value = Worksheets("intervalle jour").Cells(26, 6).Value
.Cells(i, 29).Value = Worksheets("intervalle jour").Cells(26, 7).Value
.Cells(i, 30).Value = Worksheets("intervalle jour").Cells(26, 8).Value
.Cells(i, 31).Value = Worksheets("intervalle jour").Cells(26, 9).Value
End With