Microsoft 365 Macro modification que je ne sais pas faire

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une beau dimanche 🙂

Voici ci-dessous un code que j'ai besoin de modifier mais je n'y arrive pas malgré mes tentatives et recherches.
Pourriez-vous m'aider ?

Sub Lgn_vides()
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ActiveSheet.Unprotect Password:=""
    Sheets("RdV_faits").Select
        ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(2).Select
        'Rows("107:10015").Select '???
        Selection.Delete Shift:=xlUp
        'Columns("R:ZZ").Select '???' R à dernière col vide
        Selection.Delete Shift:=xlToLeft
    Range("A1").Select
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

L'objectif est de supprimer les lignes et colonnes vides
Codes que je cherche à modifier :
Supprime toutes les lignes à partir de la 1ère cellule A (cellule active) vide
1er..... Code que je cherche à modifier : "'Rows("107:10015").Select '???" par de la 1ère ligne active à la dernière ligne vide,
Supprime toutes les colonnes à partir de la col "R" jusqu'à la dernière colonne vide
2eme Code que je cherche à modifier : "'Columns("R:ZZ").Select '???' R à dernière col vide

Si vous voulez bien juste modifier mes codes ci-dessus, ça, je pourrai le comprendre 🙂
Si besoin, je ferai un fichier test.
Un grand Merci ... je continue mes recherches,
Amicalement,
lionel 🙂

 

[sylvanu]

90 post pour arriver à ça. 😂😂😂

 

[Usine à gaz]

😱 C'est pas beau de mentir, surtout quand il y a des traces... 😂

Effectivement, c'était mal expliquée mais la demande était bien après la dernière ligne NON vide 🙂

 

[Usine à gaz]

90 post pour arriver à ça. 😂😂😂

C'est vrai Sylvanu : j'ai été très mauvais sur ce fil. J'en suis vraiment désolé 🙄
L'âge ou la fatigue ... faut peut-être que je raccroche ?
Mais quand ça va arriver, vous allez vous ennuyer sans moi ou peut-être connaître enfin la tranquillité lol 🙂

 

[TooFatBoy]

faut peut-être que je raccroche ?

Ben quoi qui t'arrive ??? Un chti coup d'mou ?
Allons allons faut pas nous faire ça l'ami !

Tiens : 😘

 

[Usine à gaz]

Ben quoi qui t'arrive ??? Un chti coup d'mou ?
Allons allons faut pas nous faire ça l'ami !

Tiens : 😘

lol : je vous aime trop et j'irai jusqu'au bout du bout 🙂

 

[sylvanu]

Non, mais c'est connu depuis longtemps :

Pourquoi faire simple quand on peut faire une Usine à Gaz.

 

[Usine à gaz]

Non, mais c'est connu depuis longtemps :

Regarde la pièce jointe 1141657

T'as le droit de te moquer car j'ai vraiment été mauvais et je salue ton courage et ta ténacité.
Vraiment merci à toi et à ceux qui ont bien voulu m'aider sur un si mauvais fil.
🙄🙄🙄🙄🙄🙄🙄🙄🙄🙄🙄🙄🙄🙄🙄🙄..... Yoyo pas fier du tout.

 

[mapomme]

@mapomme : juste pour ma culture personnelle, est-ce que dans la déclaration de la constante il ne devrait pas y avoir ""plage"" au lieu de RC[1]:RC[5] ?

Bonjour @Marcel32 🙂
Purée, il y en même un qui lit mes codes ! 😉
Un mauvais copier/coller. J'ai corrigé

 

[TooFatBoy]

Bonjour @mapomme 😉

Purée, il y en même un qui lit mes codes ! 😉
Un mauvais copier/coller. J'ai corrigé

Voui, j'ai lu dans le but d'appendre. 😉

Il me semblait bien qu'il y avait une petite coquille car j'avais aussi utilisé cette méthode du REPLACE dans un code il y a quelques temps, mais je n'étais pas non plus sûr à 100 %.
Et apparemment je n'avais pas trouvé l'exacte correction... 🙁