Sub Rename_Feuille()
Dim Compteur As Integer ' Variable de type integral
For Compteur = 2 To Worksheets.Count ' Pout toutes les feuilles de 2 à XXX
Sheets(Compteur).Name = "Données " & Compteur ' renommer en Données + n°feuille
Next ' Suivante
End Sub