Sub Regroupement_Données()
Dim Address_Feuilles As String, Compteur As Integer
For Compteur = 135 To 137
If Feuille_Existe(CStr(Compteur)) Then
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
Else
MsgBox "La feuille " & Compteur & " n'existe pas.", vbInformation + vbOKOnly
End If
Next Compteur
End Sub
Function Feuille_Existe(ByVal NomFeuille$) As Boolean
Dim Test_Objet As Worksheet
On Error GoTo Gere_Erreurs
Set Test_Objet = ActiveWorkbook.Worksheets(NomFeuille)
Feuille_Existe = True
Set Test_Objet = Nothing
Gere_Erreurs:
End Function