For i = 2 To fin1
empl = Feuil1.Cells(i, 4).Text ' Texte situé dans la colonne 4 de la feuil1
On Error Resume Next
Set ws = Worksheets(empl)
If Err Then
Worksheets.Add After:=Worksheets(worksSheets.Count)
Set ws = ActiveSheet: ws.Name = empl
lvide = 1
Else
lvide = ws.Range("A65536").End(xlUp).Row + 1
End If
On Error GoTo 0
ws.Cells(lvide, 1).Resize(, 3).Value = Feuil1.Cells(i, "A").Resize(, 3).Value
Next i