Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Ca pourrait avoir cette allure (non testé) :Lx = Cells.Find("*", , 1, , 1, 2).RowActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _"'3-Ventilés via PF'!R1C1:R" &Lx &"C27").CreatePivotTableTableDestination:="", _TableName:="Tableau croisé dynamique1", DefaultVersion:= _xlPivotTableVersion10AV
Ca pourrait avoir cette allure (non testé) : Lx = Cells.Find("*", , 1, , 1, 2).Row ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "'3-Ventilés via PF'!R1C1:R" &Lx &"C27").CreatePivotTable TableDestination:="", _ TableName:="Tableau croisé dynamique1", DefaultVersion:= _ xlPivotTableVersion10 AV