[RESOLU] Code ne fonctionne pas avec fichier partagé

[skye.in.sky]

Bonjour tout le monde!

Petit souci je n'arrive pas à faire marcher ce code VBA dans mon fichier partagé. Je n'ai pourtant pas de problème sur les autres. Je sais que les fonctions .select peuvent être fatidiques mais la je ne vois pas comment changer le code autrement. Le code me sert a copier toutes les lignes de toutes les feuilles de mon fichier à partir de la ligne 3 (sauf l'onglet consolidation ou je vais tout coller) et seulement si il y a quelquechose dans la colonne M (de chaque feuille)

Voici le code en question :

Sub Conso()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    Worksheets("Consolidation").Range("A4:A65000").EntireRow.Delete
    For Each ws In Worksheets
        If ws.Name <> "Consolidation" Then
            For i = 3 To ws.Range("M65000").End(xlUp).Row
                If ws.Cells(i, 13) <> "" Then ws.Rows(i).Copy Destination:=Sheets("Consolidation").Range("A65000").End(xlUp).Offset(1, 0)
            Next i
        End If
    Next ws
End Sub

J'espère que je vais pouvoir avoir une réponse, j'ai un peu du mal
Merci d'avance,
Jennifer

 

[skye.in.sky]

Re : [VBA - HELP ] Code ne fonctionne pas avec fichier partagé

Je viens de le faire ahah! ok merci!