Bonjour,
je débute et j'ai fait une macro afin de pourvoir récupérer des informations de différente feuille et de stocker ces différentes informations sur une autre feuille(RECAP), mais elle ne fonctionne pas. Cette macro a pour but également d'éviter les feuilles DONNEES et TARIFS ( a vrai dire il fonctionnait et tout a coup il ne fonctionnait plus).
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Macro()
 
Dim Wsh As Worksheet, Plage(), DrLig As Long
 
Application.ScreenUpdating = False
For Each Wsh In ActiveWorkbook.Worksheets
    If Wsh.Name <> "RECAP" Then
    If Wsh.Name <> "DONNEES" Then
    If Wsh.Name <> "TARIFS" Then
          With Wsh
            DrLig = .Range("L" & Rows.Count).End(xlUp).Row + 1
            Plage = .Range("A12:T" & DrLig)
        End With
        With Sheets("RECAP")
            DrLig = .Range("L" & Rows.Count).End(xlUp).Row + 1
            .Range("A" & DrLig).Resize(UBound(Plage, 1), UBound(Plage, 2)) = Plage()
        End With
    End If
    End If
    End If
Next Wsh
Je vous remercie de votre aide.