Bonjour,
Ne suffit-il pas de remplacer 10 par 21, ainsi que 1 par 2 et 4 par 15 ici :
c_in1 = 1 ' Lecture à partir de la colonne A (A = 1)
l_in1 = 10 ' à partir de la première ligne
c_out1 = 4 ' Ecriture à partir de la colonne D (D = 4)
l_out1 = 10 ' à partir de la première ligne
reste ensuite à ajuster les 1 et 2 ici :
ma_feuille.Cells(l_in2, c_in1 + 2).Value
ma_feuille.Cells(l_out1, c_out1 + 1).Value
Il faudrait un jeu de donnés pour simuler ...