Réunir deux macros en une [résolu]

Bonjour, bonjour!

Je cherche à "souder" deux macro.

Je pense que mon prblème viens de la conception de la première avec une boucle for.

Plus précisément la première macro 1 cherche dans la colonne A des valeurs "A".
Si cette valeur est trouvée, elle supprime un nombre de lignes en dessous.

Sub Macro1()

Application.ScreenUpdating = False
Sheets("Visualisation et impression").Activate
Dim i As Integer
For i = 1 To 100
If Cells(i, 1) = "A" Then
Range("A" & i, "K" & i + 20).Select
Selection.EntireRow.Delete
Range("A11").Select
End If
Next i
Application.ScreenUpdating = True

End Sub

Cliquez pour agrandir...

La seconde viens chercher une plage de cellule sur une feuille pour la copier sur ma feuille principale après la dernière valeur de la colonne A.

Sub Macro2()
Dim DerLigne As Long
Sheets("Coûts énergies").Select
Range("A10:K30").Select
Selection.Copy
Sheets("Visualisation et impression").Activate
DerLigne = Range("A65536").End(xlUp).Row + 1
Range("A" & DerLigne).Select
ActiveSheet.Paste
End Sub

Cliquez pour agrandir...

Je cherche donc à faire une case à cocher qui active une macro. Cette macro doit effacer la plage de cellule si "A" est dans la colonne A, sinon elle doit copier la plage de cellule vers la page principale.

Merci d'avance de vos réponses!!