Sub test()
Dim c As Range, f As Worksheet
Set f = Sheets("1.2 Population")
Application.ScreenUpdating = False
For Each c In f.Range("c27:c68")
If Len(f.Cells(c.Row, "M")) > 0 Then
Sheets("bon livraison").Copy after:=Sheets(Sheets.Count)
With ActiveSheet
.Name = c.Text
.Range("F12").Value = Mid(c, 5, 9 ^ 9)
.Range("F13").Value = f.Cells(c.Row, "M").Value
.Range("F14").Value = f.Cells(c.Row, "U").Value
End With
End If
Next c
End Sub