tmp = final[1:observations[i,m],1:(m+3)]
for (j in 1:observations[i,m])({
  tmp[j,1:(m-4)] = (observation[i,1:(m-4)])
  tmp[j,(m-3):(m+1)] = meteo[as.character(observations[i,m-3]+(j-1)),1:(q-2)]
  tmp[j,m+2] = observations[i,m-3]+(j-1)
  tmp[j,m+3] = meteo[as.character(observations[i,m-3]+(j-1)),q]
})
final[s:(s+observation[i,m]-1),1:(m+3)] = tmp
s = s + observation[i,m]

Replace meteo[] in my previous code by i[]