Sub a()
Dim i
For i = 3 To 32
Feuil2.Copy after:=Sheets(Sheets.Count)
With ActiveSheet
.[A4].Value = Feuil1.Cells(i, "b").Value
.[B18].Value = Feuil1.Cells(i, "d").Value
.[B27].Value = Feuil1.Cells(i, "e").Value
.[B33].Value = Feuil1.Cells(i, "f").Value
.Name = .[A4]
End With
Next i
End Sub