1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Sub petitstableaux()
Dim feuilori As Worksheet, feuilnew As Worksheet
Set feuilori = Feuil1
nblignes = feuilori.UsedRange.Rows.Count
i = 1
' Si Ax non vide
While feuilori.Range("A" & i) <> ""
k = i + 1
' Va chercher la prochaine ligne où Ax non vide
Do While (feuilori.Range("A" & k) = "" And k <= nblignes)
k = k + 1
Loop
' Insertion de la nouvelle feuille
Set feuilnew = ThisWorkbook.Worksheets.Add
' Copie de la plage entre le 1er Ax non vide et le dernier Ax non vide trouvé
feuilori.Range(i & ":" & k - 1).Copy feuilnew.Range("A1")
' Recommencer à partir du dernier Ax non vide trouvé
i = k
Wend
Set feuilori = Nothing
Set feuilnew = Nothing
End Sub |
Partager