Répéter un optionbutton

Bonjour,

Voilà, toukours débutant en VBA et cherchant àprogresser et surtut à aire avancer mon ptit prgramme de gestion des stocks, pourriez-vous m'indiquer coment faire pour répèter 40 fois l programme ci-dessous. n effet je souhaite mettre 4 boite option à la suite pour exécuter copie...recherch et autres..Merci à tous del'aide que ous pourrez mz donne.
Voici le programe :

Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then

A = Me.OptionButton2.TopLeftCell.Address
B = Me.OptionButton2.BottomRightCell.Address

actlign = Range(A, B)(1, 1).Row
Tiroir = Range("c" & actlign)
Famille = Range("b" & actlign)
quantite = Range("f" & actlign)

With Worksheets(Famille)
Set CelluleTrouvée = .Range("c12:c122").Find(What:=Tiroir, _
LookIn:=xlValues, LookAt:=xlWhole)

If CelluleTrouvée Is Nothing Then
With Sheets(Famille)
DrLig = .Range("D" & Rows.Count).End(xlUp).Row + 1
End With
With Sheets("Pièces en attente de classement")
.Range("d" & actlign & ":e" & actlign).Copy Sheets(Famille).Range("C" & DrLig)
End With
MsgBox "CREER"
Else
Ligne = CelluleTrouvée.Row
Col = CelluleTrouvée.Column + 4
toto = Worksheets(Famille).Cells(Ligne, Col).Value
Worksheets(Famille).Cells(Ligne, Col).Value = toto + quantite
End If
End With
Else
Sheets("feuil1").Show
End If

End Sub