En fait tout est présent dans mon code précédent :
With Workbooks("{classeur destination}" ).Worksheets("{feuille destination}" )
If R <= .Rows.Count Then Workbooks("{classeur source}" ).Worksheets("{feuille source}" ).[ AN7:BG7].Copy .Cells(R, 2)
Message édité par Marc L le 15-04-2013 à 16:01:09