'Actualise le(s) tableau(x) croisé(s) dynamique(s)
[COLOR=blue]ActiveWorkbook.Names.Add Name:="BaseTCD", RefersToR1C1:= _[/COLOR]
[COLOR=blue] "=OFFSET(TMP!R2C1:R2000C[4],,,COUNTA(TMP!R2C1:R2000C1))"[/COLOR]
ActiveWorkbook.RefreshAll
Sheets("Rapport").Select
Range("C1").Select
End Sub