u = ListBox1.ListCount ' récupération du dernier numéro de feuille
Dim tabdb(113, 3) ' déclaration d'un tableau de 114 lignes et 4 colonnes à deux dimensions
For d = 1 To u
For o = 4 To 113
val0 = "S" & d
With Sheets(val0)
val1 = Val(Sheets(val0).Range("C" & o).Value)
If IsNumeric(val1) Then
If Sheets(val0).Range("H" & o).Value = "" Then
tabdb(o, 0) = Sheets(val0).Range("B" & o).Value ' remplissage des colonnes du tableau 0
tabdb(o, 1) = Sheets(val0).Range("AD" & o).Value ' remplissage des colonnes du tableau 1
tabdb(o, 2) = Sheets(val0).Range("A" & o).Value' remplissage des colonnes du tableau 2
tabdb(o, 3) = tabdb(o, 3) + 1 ' remplissage des colonnes du tableau 3
End If
End If
End With
Next
Next
Feuil66.Range("B1:E113").Value = tabdb ' j'écris le tableau dans une plage de même taille