Bonjour et merci aux petits coups de mains.
Donc finalement la solution etait très simple à trouver. Je n'avez pas remarque que le TCD prenait une chaîne de caractère en paramètre.
Une fois que j'ai vu ca il n'y avez plus que concaténé une chaine de caractère comme ceci :
Taille = "Feuil1!R1C1:R" + tempo + "C8"
puis d'utiliser cette variable :
Range("A1").Select
Selection.CurrentRegion.Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
Taille, TableDestination:="", TableName:="Tableau croisé dynamique1"
Merci A+
PS : Il me reste un problème de transformation de . en , encore.