'---décale les moyennes---
If IsError([MOYENNES1]) Then
MsgBox "La plage nommée 'MOYENNES1' n'existe pas !", 48
Else
If br.Rows(br.Rows.Count).Row + 1 = [MOYENNES1].Row Then
Application.CutCopyMode = 0 'annule le mode Couper/Copier
[MOYENNES1].EntireRow.Insert
[MOYENNES1].EntireRow(0).Clear 'efface la ligne précédente
End If
End If