Il est totalement inutile d'activer la feuille "PARAM", remplacer donc votre code par celui-ci
Option Explicit
Sub ListeOnglets()
Dim Ind As Integer
With Sheets("PARAM")
For Ind = 1 To Sheets.Count
.Range("A" & Ind).Value = Sheets(Ind).Name
Next Ind
End With
End Sub