Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'placer les conducteurs
If Not Intersect(ActiveCell, Range("C3:O26")) Is Nothing Then
[COLOR="Red"][B]On Error Resume Next[/B][/COLOR]
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
End If
End Sub