Bonjour,
Ne cherchez plus j'ai réussi en créant une variable PlageDonnéesJour String à me sortir de ce mauvais pas. Le nouveau code donne ceci :
Dim DateTrait As Date
Dim DateTraitInt As Variant
Dim DateOrig As Date
Dim DateOrigInt As Variant
Dim Ligne As Variant
Dim PlageDonnéesJour As String
Sheets("GL Global").Select
DateTrait = InputBox _
("Veuillez entrer la date de la journée à traiter. ", _
"Date du Tableau de Bord")
DateOrig = DateTrait - 14
DateTraitInt = DateTrait
DateOrigInt = DateOrig
Ligne = Sheets("Recueil Données GL").Cells.Find(What:=DateTrait, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Address
Ligne = Range(Ligne).Row
PlageDonnéesJour = "Recueil Données GL!R1C1:R" & Trim(Str(Ligne)) & "C14"
Sheets.Add.Name = "Mise en Forme des Données"
ActiveWorkbook.PivotCaches.Add _
(SourceType:=xlDatabase, _
SourceData:=PlageDonnéesJour). _
CreatePivotTable TableDestination:=Range _
("A3"), TableName:="QuinzaineAXEGL"
Merci à tous et A+, (car décrouvant un peu le VBA Excel je pense avoir d'autre petits soucis dans mon développement.)