Private Sub T8_Change()
Dim DRL As Long
Dim i As Long
Dim a As Double, b As Double, ag As Double
a = Year(Now)
b = Year(T7.Value)
ag = a - b
If ag < 9 Then
T13.Value = "Enfant"
End If
If ag > 19 Then
T13.Value = "Adulte"
End If
With Sheets("Données")
DRL = .Range("B65500").End(xlUp).Row
For i = 2 To DRL
If .Cells(i, 2).Value = ag Then
If T8.Value = "G" Then
T13.Value = .Cells(i, 3).Value
End If
If T8.Value = "F" Then
T13.Value = .Cells(i, 4).Value
End If
End If
Next i
End With
End Sub