Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Lig As Long
If Target.Count > 1 Then Exit Sub
' Si la colonne sélectionnée est bien la "C"
' Si la cellule sélectionnée contient la valeur "+"
If Left(Target.Address(0, 0), 1) = "C" And Target.Value = "+" Then
' On ajoute les lignes
Lig = Target.Row
Rows(Lig - 4 & ":" & Lig - 1).Copy
Rows(Lig & ":" & Lig).Insert Shift:=xlDown
[COLOR=blue][B]Rows(Lig & ":" & Lig + 3).ClearContents
[/B][/COLOR] End If
End Sub