Bon ben merci à ceux qui m'ont répondu....
Je réponds avec un peu de retard.....
j'ai trouvé la réponse donc la voilà ...
Application.ScreenUpdating = False
'Détermination du nombre de personnes
Sheets("=STAFF=").Select
'En D1 on trouve le nombre de personnes et donc le nombre de ligne à copier
i = Range("D1").Value
'Sélection des différentes feuilles concernées pour la mise à jour
Sheets(Array("Répt°", "CalcRépt°", "ABS", "CP 1", "CP 2", "Plan", "Ptés", "Plan-ABS", "Ptés-ABS", "Quantif.", "Ec. P-P", "HISTOABS", "FinStore", "FinPlan", "=AM", "=CP", "=CE", "=AT", "=DEM", "Ec. Pos", "Ec. Neg", "TABLEAUX")).Select
Sheets("Répt°").Activate
'Copie
Sheets("HISTOABS").Activate
Set SourceRange = Range(Cells(6, 1), Cells(6, 165))
Set fillRange = Range(Cells(6, 1), Cells(i + 4, 165))
SourceRange.AutoFill Destination:=fillRange
et ainsi de suite pour les feuilles ......
voilou....
merci encore......
Ben-Ten