Peux-tu m'expliquer un peu le code s'il te plait ? j'ai du mal a le refaire par moi meme surtout les partie en gras
Que represente fh et fs par exemple ?
Option Explicit
Dim fh As Worksheet, fs As Worksheet, tablo, tabloR()
Dim i&, j&, k&, flag&
Mise a jour du suivi :
tablo = Range("B2").CurrentRegion
k = 0
For i = 3 To UBound(tablo, 1)
ReDim Preserve tabloR(1 To 3, 1 To k + 1)
tabloR(1, k + 1) = tablo(i, 2)
k = k + 1
flag = 0
For j = 3 To UBound(tablo, 2)
If tablo(i, j) <> "" Then
If flag = 0 Then
k = k - 1
flag = 1
End If
ReDim Preserve tabloR(1 To 3, 1 To k + 1)
tabloR(2, k + 1) = tablo(2, j)
tabloR(3, k + 1) = tablo(i, j)
k = k + 1
End If
Next j
Next i
fs.Range("A6").CurrentRegion.Offset(1, 0).ClearContents
fs.Range("A7").Resize(UBound(tabloR, 2), 3) = Application.Transpose(tabloR)
fs.Activate
Unload Me
End Sub