Sub ReportingRIGP()
Dim WS As Worksheet
Dim L As Integer, C As Integer
Dim Lcible As Integer
Dim Plage As Range
Dim Rw As Range
Dim Ligne As Long
'Effacement de la feuille de Reporting
Worksheets("Reporting").Select
Worksheets("Reporting").Rows("3:65536").Select
Selection.Delete Shift:=xlUp
For Each WS In Worksheets
Lcible = Worksheets("Reporting").Range("A65536").End(xlUp).Row + 1
'Boucle sur les feuilles
If WS.Name <> "Reporting" And WS.Name <> "Listes" And WS.Name <> "ACCUEIL" Then
With WS
L = .Range("A65536").End(xlUp).Row
C = .Range("A3").End(xlToRight).Column
Set Plage = .Range("A3", Cells(L, C).Address)
If .Range("A3").Value <> "" Then 'si quelque chose a été saisi dans la feuille
Plage.Copy Destination:=Worksheets("Reporting").Range("A" & Lcible)
End If
End With
End If
Next WS
'Écriture de la date d'actualisation
Range("D1").Select
Selection.Value = Now()
Range("A2").Select
End Sub