Sub Regroupement_Données()
Dim Address_Feuilles As String, Compteur As Integer
For Compteur = 135 To 137
With Sheets(CStr(Compteur))
If Sheets("REGROUPEMENT").Range("A6").Value = "" Then
If Not .Range("A2").Value = "" Then
Address_Feuilles = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Address
Sheets("REGROUPEMENT").Range("A5").Range(Address_Feuilles).Value = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Value
End If
Else
If Not .Range("A2").Value = "" Then
Address_Feuilles = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Address
Sheets("REGROUPEMENT").Range("A65536").End(xlUp).Range(Address_Feuilles).Value = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Value
End If
End If
End With
Next Compteur
End Sub