Function RechercheTabTest() As Range
Dim Ligne As Integer
Dim Colonne As Integer
With Worksheets("test")
For Ligne = 1 To 240 Step 24
For Colonne = 1 To 50 Step 5
If .Cells(Ligne, Colonne) = "" Then
Set RechercheTabTest = .Cells(Ligne, Colonne)
Exit Function
End If
Next Colonne
Next Ligne
End With
End Function
==> comme le tableau fait une dimension de 24 lignes par 5 colonnes, j'ai tenté d'adapter une fonction pour tester les cellules de chaque première cellule potentielle d'un tableau hébergé, et dès qu'on tombe sur une cellule vide, on doit renvoyer la plage de cette cellule dans la macro ci-après :
Sub toto()
[..] <== partie indépendante de la macro qui fonctionne
Dim MyCell As Range
Set MyCell = RechercheTabTest()
MyCell.Activate
[...] <==== la fin du reporting qui fonctionne très bien
end sub