Sub Macro1() Dim nOnglets& 'Récupère le nb d'onglets nOnglets& = ActiveWorkbook.Worksheets.Count 'Insère (nOnglets-1) lignes avant la ligne de total Range("Total").Resize(nOnglets& - 1, 1).EntireRow.Insert ' recopie les formules de B10 à K10 jusqu'à la ligne de total Range("B10:K10").AutoFill Destination:=Range("B10:K" & Range("Total").Row - 1), Type:=xlFillDefaultEnd Sub