Sub BurDestII()
Dim NBur&
NBur = CLng(InputBox("Saisir le n° du bureau de destination, SVP", "SELECTION BUREAU"))
Sheets(1).Range("L2").Value = NBur
Worksheets.Add(after:=Sheets(Sheets.Count)).Name = "Bureau " & NBur
With ActiveSheet
Sheets(1).Columns("A:F").AdvancedFilter 2, Sheets("Feuil1").Range("H1:M2"), .Range("A1"), False
End With
End Sub