selection excel

[tourne en rond]

Bonjour ,
J'ai realise une macro pour faire des tableux croisés dynamiques sur une colonne que je fais choisir à l'utilisateur mais j'ai un probléme pour selectionner mes données .

'regarde la colonne que l'utilisateur veut traiter
Range("B3").Activate
nomcol = Sheets("Utilisateur").Range("B3").Value

Sheets("Données").Select 'selectionne la page ou se trouve les données'
Range(nomcol & 5, nomcol & nblig).Select 'selectionne la colonne a traitée

ActiveSheet.PivotTableWizard SourceType:=xlDatabase, _
SourceData:="Données! nomcol" & 5: nomcol & nblig, _ 'erreur !!!
TableDestination:="'[questionnaire corset.xls]Feuil3'!R2C1", _
TableName:="Tableau croisé dynamique1"
ActiveSheet.PivotTables("Tableau croisé dynamique1"). _
AddFields RowFields:="var"
ActiveSheet.PivotTables("Tableau croisé dynamique1"). _
PivotFields("var").Orientation = xlDataField