Sheets("BDD").Select
Rows("2:2").Select
[COLOR="#FFFF00"]Selection.Insert Shift:=xlDown[/COLOR]
Sheets("Prise en Charge").Select
Rows("2:2").Select
Selection.Copy
Sheets("BDD").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Columns("A:N").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
Sheets("Prise en Charge").Select
Range("C6:C7,C9:C10,C12,C14:C16,C18:C19,C22,C26").Select
Range("C26").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("C5").Select