ça y est : plusieurs heures de recherche, une bonne nuit de sommeil et j'ai réussi....
Merci Arkeod pour le coup de main qui m'a bien mise sur la voie....
Pour ceux que ça intéresse (enfin les débutants comme moi)
LE code est devenu cela :
Sheets("ALTIS" ).Activate
Cells(1, 7).Activate
i = 0
While (Cells(i + 1, 7) <> "" )
i = i + 1
Wend
'NbLigne = i
'Range(Cells(1, 5), Cells(NbLigne, 7)).Select
Range(Cells(1, 5), Cells(i, 7)).Select
'création du tableau croisé dynamique
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="ALTIS!R1C5:R" & i & "C7" ). _
CreatePivotTable TableDestination:="", TableName:="Altis"
ActiveSheet.Name = "Pivot toutAlti"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Altis" ).SmallGrid = False
With ActiveSheet.PivotTables("Altis" ).PivotFields("Nom" )
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Altis" ).PivotFields("Encours" )
.Orientation = xlDataField
.Position = 1
End With
---------------
Excel est mon ami pour la vie - http://marion.chtitemouss.net/