Option Explicit
Sub Demo()
Dim rInter As Range
Set rInter = FindInterSection("130201406", "Janvier")
If Not rInter Is Nothing Then
MsgBox "Lintersection est " & rInter.Address, vbOKOnly Or vbInformation
Else
MsgBox "Intersection introuvable", vbOKOnly Or vbCritical
End If
End Sub
Function FindInterSection(OMP As String, Mois As String) As Range
Dim rOMP As Range
Dim rMois As Range
Set rOMP = Feuil3.[E:E].Find(What:=OMP)
Set rMois = Feuil3.[A3].EntireRow.Find(What:=Mois)
Set FindInterSection = Intersect(rOMP.EntireRow, rMois.EntireColumn)
End Function