Sub TestTableau()
Dim Tbl(1 To 2, 1 To 10)
Tbl(1, 1) = "Mois01"
Tbl(1, 2) = "Mois02"
Tbl(1, 3) = "Mois03"
Tbl(1, 4) = "Mois04"
Tbl(1, 5) = "Mois05"
Tbl(2, 1) = "Total01"
Tbl(2, 2) = "Total02"
Tbl(2, 3) = "Total03"
Tbl(2, 4) = "Total04"
Tbl(2, 5) = "Total05"
MoisCherche = InputBox("Tapez le mois cherché (Mois01, Mois02,...)", "Recherche du mois", "Mois01")
MsgBox RechercheVTab(Tbl, MoisCherche)
End Sub
Function RechercheVTab(Tbl, MoisCherche)
RechercheVTab = Tbl(2, Application.Match(MoisCherche, Application.Index(Tbl, 1), 0))
End Function