La macro suivante te dis si il y a ou non un fractionnement sur ta feuille active, je te laisse le soin de l'adapter a tes besoins.
Code:
Sub test()
If ActiveWindow.SplitColumn = 0 Then
If ActiveWindow.SplitRow = 0 Then
MsgBox 'il n'y a pas de fractionnement'
Else
MsgBox 'il y a un fractionnement'
End If
Else
MsgBox 'il y a un fractionnement'
End If
End Sub