Copier cellules sur une autre feuille si coché

Bonjour,

Voilà je suis d'ordinaire plus portée sur les forums (CCS et HTML donc pas vraiment de rapport avec ce que je sais faire mis à part l'outil et le fait d'entrer des codes pour ordonner une action) et on me demande de faire un tableau sous excel, pour le travail, qui consiste à répertorier les formations par agents.
Mon but est donc d'avoir sur la feuille principale les formations, et si on coche la case correspondante à la formation dans la colonne Bernard, les cellules ("A2:G2") seront copiées dans la feuille2 "Bernard", si la case est décochée ou non-cochée, les cellules ne sont pas copiées, le tout pour tout les agents et toutes les formations.

Voici le code que j'ai voulu mettre en place mais il me sort des erreurs de partout.

Sub Caseàcocher3_Cliquer()
     
    Dim Caseàcocher3 As CheckBox
    Dim SBI As Worksheets
    Dim DONNEES As Worksheets
    Dim Caseàcocher3 As CheckBox
     
    If Caseàcocher3.Value = True Then
    Range("B3:E3").Copy Destination:=Sheets("SBI").Range("A24:E24")
    End If
    End Sub
     
    Sub Caseàcocher1_Cliquer()
    If Caseàcocher1.Value = True Then
    If Worksheets("SBI").Cell("A24") = Empty Then
    Range("B4:E4").Copy Destination:=Sheets("SBI").Range("A24:E24")
    End If
    End Sub

Pouvez m'indiquer de quel ordre sont mes erreurs.
Je chercherai à les corriger mais je suis dans le flou quant à savoir d'où elles viennent.

Merci par avance