Private Sub Worksheet_Change(ByVal R As Range)
Dim L As Byte, C As Range
If Not Intersect(R, [A3:A17]) Is Nothing And R.Count = 1 Then
L = R.Row
With Sheets("calcul")
.Range("C" & L) = ""
.Range("C" & L + 1) = ""
.Range("C" & L)(1, 4) = ""
.Range("C" & L)(1, 6) = ""
If IsNumeric(R) And R <> "" Then
Set C = Sheets("Mat").[A:A].Find(R, , , 1)
If Not C Is Nothing Then
.Range("C" & L) = Sheets("Mat").Cells(C.Row, 3)
.Range("C" & L + 1) = Sheets("Mat").Cells(C.Row, 4)
.Range("C" & L)(1, 4) = Sheets("Mat").Cells(C.Row, 5)
.Range("C" & L)(1, 6) = Sheets("Mat").Cells(C.Row, 6)
End If
End If
End With
End If
End Sub