Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$5" And Target <> "" Then
[COLOR="Red"]For Each nms In ActiveWorkbook.Names
If nms.Name Like "serie*" Then nms.Delete
Next nms[/COLOR]
ActiveWorkbook.Names.Add Name:=Feuil1.Range("A1"), RefersToR1C1:="=feuil1!R2C1:R21C1" 'et nome la plage avec pour nom la cellule a1 de la feuille1
End If
End Sub