@vgendron
Un grand merci pour votre retour ,
j'ai essayé le code mais j'ai le message d'erreur suivant:
"erreur d'exécution 9, l'indice n'appartient pas à la sélection"
la ligne d'erreur :
ficDest.Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, j - 1) = DataDest(i, j)
merci...