Sub sbizzy()
Dim valore As Variant, trovato As Variant, x As Variant
Dim riga As Integer, colonna As Integer
With Worksheets("Foglio1") '----------------->da cambiare
valore = .Range("a20").Value
    For riga = 1 To 15
        For colonna = 3 To 78 Step 5
             x = .Cells(riga, colonna).Value
             If x = valore Then
                trovato = .Cells(riga, colonna + 2).Value
                MsgBox trovato
                End If
        Next colonna
Next riga
End With
End Sub

'---------------------------------------------------------------------------------------
' UDF       : FindInTab
' Author    : scossa
' Date      : 19/01/2014
' Purpose   :
'---------------------------------------------------------------------------------------
'
Public Function FindInTab(ByVal vWhat As Variant, ByRef rngTab As Range, _
  ByVal nColSerch As Long, ByVal nOffset As Long) As Variant

  Dim rngFnd As Range
  Dim vRet_ As Variant
  If vWhat = "" Then
    vRet_ = ""
  Else
    Set rngFnd = rngTab.Columns(nColSerch).Find(what:=vWhat, LookIn:=xlValues, lookat:=xlWhole)
    If Not rngFnd Is Nothing Then
      vRet_ = rngFnd.Offset(, nOffset).Value
    Else
      vRet_ = "" '
    End If
  End If
  FindInTab = vRet_

End Function

'---------------------------------------------------------------------------------------
' Procedure : FindInTab
' Author    : scossa
' Date      : 19/01/2014
' Purpose   :
'---------------------------------------------------------------------------------------
'
Public Function FindInTab(ByVal vWhat As Variant, ByRef rngTab As Range, _
  ByRef nColSearch As Variant, ByVal nOffset As Long) As Variant

  Dim rngFnd As Range
  Dim rngSearch As Range
  Dim j As Long
  Dim vRet_ As Variant
  If vWhat = "" Then
    vRet_ = ""
  Else
    Set rngSearch = rngTab.Columns(nColSearch(1))
    For j = 2 To UBound(nColSearch)
      Set rngSearch = Union(rngSearch, rngTab.Columns(nColSearch(j)))
    Next
    Set rngFnd = rngSearch.Find(what:=vWhat, LookIn:=xlValues, lookat:=xlWhole)
    If Not rngFnd Is Nothing Then
      vRet_ = rngFnd.Offset(, nOffset).Value
    Else
      vRet_ = "" '
    End If
  End If
  Set rngSearch = Nothing
  FindInTab = vRet_
End Function