Vba excel case a cocher + bouton imprimé

Salut

Voila un petit code tout simple mais ne fonctionne pas pourquoi ???
Il fonctionne la premiere fois et ensuite il n'imprime que la premiere page ???
Merci si vous pouvez m'aider rapidement.

Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
Worksheets("feuil2").PrintOut
If CheckBox2.Value = True Then
Worksheets("feuil3").PrintOut
If CheckBox3.Value = True Then
Worksheets("feuil4").PrintOut
If CheckBox4.Value = True Then
Worksheets("feuil5").PrintOut
If CheckBox5.Value = True Then
Worksheets("feuil6").PrintOut
If CheckBox6.Value = True Then
Worksheets("feuil7").PrintOut
If CheckBox7.Value = True Then
Worksheets("feuil8").PrintOut
If CheckBox8.Value = True Then
Worksheets("feuil9").PrintOut
If CheckBox9.Value = True Then
Worksheets("feuil10").PrintOut
If CheckBox10.Value = True Then
Worksheets("feuil11").PrintOut
If CheckBox11.Value = True Then
Worksheets("feuil12").PrintOut
If CheckBox12.Value = True Then
Worksheets("feuil13").PrintOut
If CheckBox13.Value = True Then
Worksheets("feuil14").PrintOut
If CheckBox14.Value = True Then
Worksheets("feuil15").PrintOut
If CheckBox15.Value = True Then
Worksheets("feuil16").PrintOut
If CheckBox16.Value = True Then
Worksheets("feuil17").PrintOut
If CheckBox17.Value = True Then
Worksheets("feuil18").PrintOut
If CheckBox18.Value = True Then
Worksheets("feuil19").PrintOut
If CheckBox19.Value = True Then
Worksheets("feuil20").PrintOut
If CheckBox20.Value = True Then
Worksheets("feuil21").PrintOut
If CheckBox21.Value = True Then
Worksheets("feuil22").PrintOut
If CheckBox22.Value = True Then
Worksheets("feuil23").PrintOut
If CheckBox23.Value = True Then
Worksheets("feuil24").PrintOut
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub