Si cellule vide

Bonjour,

J'ai écrit une macro pour copier des données d'un onglet à un autre, la voici :

 Sheets("AT avec arrêt agents").Select
    Range("A2:A100").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Liste AT").Select
    Range("B19:B117").Select
    ActiveSheet.Paste Link:=True

    Sheets("AT avec arrêt agents").Select
    Range("B2:B100").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Liste AT").Select
    Range("C19:C117").Select
    ActiveSheet.Paste Link:=True

    Sheets("AT avec arrêt agents").Select
    Range("C2:C100").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Liste AT").Select
    Range("M19:M117").Select
    ActiveSheet.Paste Link:=True

    Sheets("AT avec arrêt agents").Select
    Range("D2:D100").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Liste AT").Select
    Range("N19:N117").Select
    ActiveSheet.Paste Link:=True

    ActiveWorkbook.Save

Cette macro permet de rentrer les AT avec arrêt dans l'onglet "AT avec arrêt agents" et ensuite de les copier dans "Liste AT". Le soucis, c'est qu'il y a aussi des AT sans arrêt qu'on rentre à la main directement dans Liste AT.

Sauf que dans Liste AT, les cellules correspondent maintenant aux cellules de l'onglet AT avec arrêt.

Donc imaginons que je rentre un AT sans arrêt à la main, ça entraînerait que j'efface la commande ='AT avec arrêt agents'!A4 qui s'y trouve et la cellule A4 ne se répercuterait plus dans Liste AT....

Pour palier à cela, j'aimerais lui dire de remplir la colonne A de Liste AT si la cellule est vide.

J'ai trouvé

If Range("B2") <> "" 
Then ' (Le code plus haut)
Else '
        If Range("B3")<>
        Then (à nouveau mon code)
End If

N'y a-t-il pas un moyen plus simple de lui dire rempli la cellule de la colonne A vide sinon passe à la cellule suivante de la colonne A que de réécrire If pour toutes les cellules de la colonne A possible ?

Cordialement.