Bonjour à tous,

J'utilise cette ligne de code plusieurs fois pour copier différentes colonnes :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Set maplage = Range("Q29:" & Range("Q1000").End(xlUp).Address).SpecialCells(xlCellTypeVisible)
    maplage.Copy
Puis pour coller, j'utilise ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
With Workbooks("mise en location.xls")
        .Activate
        .Sheets("Feuil1").Range("G6").Select
        .ActiveSheet.Paste
    End With
Ce code fonctionne correctement à l'acception de 2 colonnes, au lieu de me copier/coller de la ligne 29 à 1000 il me copie/colle de la ligne 1 à 29... J'ai pourtant la même ligne de code en changeant seulement le nom des colonnes... Je ne vois pas ce qui foire... Voilà le code qui ne fonctionne pas comme attendu :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Set maplage = Range("AX29:" & Range("AX1000").End(xlUp).Address).SpecialCells(xlCellTypeVisible)
    maplage.Copy
    'Colle sur fichier "mise en location"
    With Workbooks("mise en location.xls")
        .Activate
        .Sheets("Feuil1").Range("J6").Select
        .ActiveSheet.Paste
    End With
Sauriez vous m'éclairer s'il vous plaît ? J'ai tellement le nez dessus que je ne vois pas/plus la petite différence entre mes 2 codes ?

Merci
Bonne après midi