Comment diviser une feuille?

Merci CCM81.
Ton fichier fonctionne et me convient. Malheureusement, il ne copie que les 3 premières colonnes de mon fichier. Or, j'en ai 28. Quel chiffre dois-je changer dans cette macro pour remédier à ce problème. (Je me débrouille en macro, mais pas beaucoup)

Option Explicit

Const FS = "Source"
Const codeb = 1
Const lideb = 2

Public Sub OK()
Dim lid As Long, lif As Long, lifin As Long, nomb As String, co As Long
Dim plage As Range, fini As Boolean
Application.ScreenUpdating = False
With Sheets(FS)
lifin = .Cells(Rows.Count, codeb).End(xlUp).Row
lid = lideb
fini = False
nomb = .Cells(lid, codeb).Value
While Not fini
lif = lid
Sheets.Add
ActiveSheet.Name = nomb
Sheets(nomb).Move after:=Sheets(Sheets.Count)
For co = codeb To codeb + 3
Sheets(nomb).Columns(co).ColumnWidth = .Columns(co).ColumnWidth
Next co
Set plage = .Range(.Cells(lideb - 1, codeb), .Cells(lideb - 1, codeb + 2))
plage.Copy Sheets(nomb).Cells(lideb - 1, codeb)
While .Cells(lif, codeb).Value = nomb
lif = lif + 1
Wend
Set plage = .Range(.Cells(lid, codeb), .Cells(lif - 1, codeb + 2))
plage.Copy Sheets(nomb).Cells(lideb, codeb)
nomb = .Cells(lif, codeb).Value
If nomb = "" Then fini = True
lid = lif
Wend
End With
Application.ScreenUpdating = True
End Sub

Aujourd'hui, je n'aurai pas le temps de m'attaquer à mon fichier. Je te donnerai la durée lundi.

Merci beaucoup