Sub Variables()
Dim RgTI As Range, Reference As String, Ligne As Long, Genre As String, Cultivar As String
Set RgTI = [TABLE_INDEX]
Reference = [G4].Value
On Error Resume Next
Ligne = WorksheetFunction.Match(Reference, RgTI.Columns(1), 0)
If Err Then
[G4].Value = Empty
Else
Genre = RgTI(Ligne, "D").Value
Cultivar = RgTI(Ligne, "E").Value
MsgBox Genre & " " & Cultivar
End If
End Sub