[XL-2003] Premiere ligne non vide VBA excel

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:

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