Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
Application.EnableEvents = False
If Target.Address = "$C$3" Then 'liste validation en C3
If Target.Value <> "" Then
Range("D3").Value = Application.WorksheetFunction.Index([listebc], Application.WorksheetFunction.Match(Target.Value, [listeb], 0), 2)
For i = 1 To 4
Rows(Target.Row + 1).Insert
Next i
Range("B4:P4").Interior.ColorIndex = xlNone
Range("B6:P6").Interior.ColorIndex = xlNone
For i = Target.Row To Target.Row + 4 'içi 3 to 7
Range("F" & i) = i - 2 'inscrit 1,2,3,etc
If i > 3 Then Range("C" & i).Value = Target.Value 'inscrit valeur de C3
If i > 3 Then Range("D" & i).Value = Range("D3").Value 'inscrit valeur de D3
Next i
Else
For i = Target.Row + 4 To Target.Row + 1 Step -1
Rows(i).Delete
Next
Range("D" & Target.Row).Value = ""
Range("F" & Target.Row).Value = ""
End If
Application.EnableEvents = True
End If
End If
End Sub