Fonction SI + OU

Bonjour,

Je n'ai pas un très bon niveau, pouvez-vous m'aider à cumuler une fonction si et une fonction ou sous VB?

Voici le code existant auquel j'aimerai rajouté une condition:
Si M12=1 OU D157<>N4 alors ....

Ce code contient déja la 1ère condition (M12). (Au passage si vous avez des suggestions pour améliorer mon code je prends!).

Merci à vous,

Code:

Sub Imprimersadm()

If Range("M12").Value = 1 Then
Application.ScreenUpdating = False
Sheets("Synthèse administrative").Visible = True
Sheets("Synthèse administrative").PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
Sheets("Synthèse administrative").Select
Range("B11:F42").Select
Range("B42").Activate
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("B11:F42").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("B:B").EntireColumn.AutoFit
'Sheets("Synthèse administrative").PrintOut
Sheets("Synthèse administrative").Visible = False
Application.ScreenUpdating = True
Else
MsgBox "L'impression de la synthèse administrative est impossible car vous n'êtes pas à 100% investit."
Exit Sub
End If

End Sub

Merci à vous ,
Mat