Copie de lignes en fonction d'une variable

Sub test()
Dim NbreLigne As Integer, A As Integer, B  As Integer, C As Integer, D As Integer
NbreLigne = 23
If NbreLigne Mod 4 = 0 Then
A = NbreLigne / 4
B = A
Else
A = Int(NbreLigne / 4) + 1
B = A - NbreLigne Mod 4
End If
Range("A1:B" & A).Copy Sheets("Sem1").Range("A1")
Range("A" & A + 1 & ":B" & A * 2).Copy Sheets("Sem2").Range("A1")
Range("A" & A * 2 + 1 & ":B" & A * 3).Copy Sheets("Sem3").Range("A1")
Range("A" & A * 3 + 1 & ":B" & NbreLigne).Copy Sheets("Sem4").Range("A1")
End Sub