SourceData Tableaux Croisé Dynamique

Bonjour à tous, je vous explique mon problème.

J'aimerai faire un TCD à partir d'un worksheet dont je ne connais pas le nom a l'avance, je m'explique j'ai un bouton qui me demande quel fichier excel je veux ouvrir, je clique sur le fichier le fichier demander s'ouvre les données sortent et j'aimerai qu'a partir de là le TCD se crée tout seul. Voilà le code pour l'instant

Public Sub Outbound()
   
   '*************************************
   'On choisit le fichier que l'on veut                  *
   '*************************************
    
Dim wbSource, wbFichierUsager As Workbook
Dim strFileName As String
Dim intChoice As Integer

Set wbFichierUsager = ThisWorkbook


Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
intChoice = Application.FileDialog(msoFileDialogOpen).Show
If intChoice <> 0 Then
strFileName = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
Workbooks.Open strFileName
Set wbSource = ActiveWorkbook
Else
 MsgBox "La procédure est annulée car aucun fichier n'a été entré."
    Exit Sub
End If

Application.ScreenUpdating = False
  

  Dim DernLigne As Long
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row

Sheets.Add
     ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "strFileName!R1C1:R" & DernLigne & "C16", Version:=xlPivotTableVersion15). _
        CreatePivotTable TableDestination:="Feuil1!R3C1", TableName:= _
        "Tableau croisé dynamique", DefaultVersion:=xlPivotTableVersion15
 

  Application.ScreenUpdating = True

Inutile d'aller plus loin le problème vient du SourceData. Que mettre dans celui ci ?

Bien à vous

V.B.