Sélection Tableau Lignes / Colonnes variables / non vides

Bonjour à toutes et tous,

Je voudrais automatiser une sélection de tableau pour la copier, puis l'exporter sur Powerpoint. J'aimerais savoir s'il n'y a pas un code plus simple ou plus flexible que celui utilisé pour mon actuelle macro. Je trouve que mon code ne permet pas d'anticiper des futurs modifications dans la structure de mon tableau. J'ai commencé par développer le code pour sélectionner une plage avec plusieurs contraintes.

Voici les Contraintes :

• Si une cellule est remplie entre la cellule C16 et I16, la macro ne marchera plus.
• Si une donnée est placée entre C10.000 et C16, idem : bug.
• Certaines cellules sont vides, comme c'est le cas dans l'exemple
• Le nombre de colonnes est variable.

Code utilisé :

Sub Macro_selection()

    Range("C10000").Select
    Selection.End(xlUp).Select
    Selection.End(xlToRight).Activate

    ActiveCell.Select
      Colonne = ActiveCell.Column
      Ligne = ActiveCell.Row
    'Feuil1.Range(Cells(11, 5), Cells(Ligne, Colonne)).Select
    'Sélection de la plage "E11:LigneColonne"
    ActiveSheet.Range(Cells(11, 5), Cells(Ligne, Colonne)).Select
    Selection.Copy

End Sub

Avez-vous des idées ou critiques ? J'aimerais m'améliorer sur les sélections.

Bien à vous,

Bigboo