Bonjour,
J'ai le code suivant qui tourne en boucle même si mes données sont très limités !!
Pouvez vous m'aider à l'améliorer svp
d'avance, merci
Dim i As Integer
i = 1
While curRange.Cells(i, 1).Value <> vbNullString
Dim sheetName As String
sheetName = curRange.Cells(i, 1).Value
If Not SheetExists(sheetName) Then
ThisWorkbook.Sheets("TAB_CTR_DSN").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = sheetName
End If
Range("C13").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Code Société" _
).ClearAllFilters
On Error Resume Next
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Code Société" _
).CurrentPage = ActiveWorkbook.ActiveSheet.Name
On Error Resume Next
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotCache.Refresh
Columns("C:C").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Rows("9:10").Select
Selection.EntireRow.Hidden = True
Range("c4").Select
i = i + 1
Wend