Transfert de données en multicritères

Sub recherche()
For i = 4 To 300
If Range("B1") = "Janvier" Then j = 6
If Range("B1") = "Février" Then j = 7
If Range("B1") = "Mars" Then j = 8
If Range("B1") = "Avril" Then j = 9
If Range("B1") = "Mai" Then j = 10
If Range("B1") = "Juin" Then j = 11
If Range("B1") = "Juillet" Then j = 12
If Range("B1") = "Août" Then j = 13
If Range("B1") = "Septembre" Then j = 14
If Range("B1") = "Octobre" Then j = 15
If Range("B1") = "Novembre" Then j = 16
If Range("B1") = "Décembre" Then j = 17
If Range("B1") = "" Then If MsgBox("Veuillez selectionner un mois", vbOKOnly) = vbOK Then Exit Sub
With Sheets("MSBC")
If Cells(i, 5) <> "" Then
On Error Resume Next
 .Cells(i, j) = WorksheetFunction.VLookup(.Cells(i, 5), Sheets("Import sal").Range("A:G"), 7, False)
End If
End With
Next i
End Sub

Sub recherche()
    For i = 4 To 300
        If Range("B1") = "" Then
            MsgBox "Veuillez selectionner un mois", vbExclamation
            Exit Sub
        End If
        j = 5 + Month("1 " & Range("B1"))       
        With Sheets("MSBC")
            If Cells(i, 5) <> "" Then
                On Error Resume Next
                .Cells(i, j) = WorksheetFunction.VLookup(.Cells(i, 5), Sheets("Import sal").Range("A:G"), 7, False)
            End If
        End With
        j=0 'réinitialiser J
    Next i
End Sub