Bonjour,

J'essai de copier un texte sur la premiere ligne vide du tableau.
Cela fonctionne par contre il me met la feuille suivante sur H47 par exemple à la place de Axx.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
  Sheets("S01").Select
    Range("A17:H24,A29:H33,A38:H42,A47:H51,A56:H60,A65:H69,A74:H78,A83:H87,A92:H96" _
        ).Select
    Selection.Copy
    Sheets("RECAP").Select
 
        Range("A1").Select
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Select
 
 
 
    ActiveSheet.Paste
 
    Sheets("S02").Select
    Range("A17:H24,A29:H33,A38:H42,A47:H51,A56:H60,A65:H69,A74:H78,A83:H87,A92:H96" _
        ).Select
    Selection.Copy
    Sheets("RECAP").Select
 
        Range("A1").Select
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Select
 
 
    ActiveSheet.Paste
D avance merci