Sub BonDeCommande()
Application.ScreenUpdating = False
NbBon = WorksheetFunction.CountA(Sheets("SAISIE COMMANDES").Rows(2)) - 1
NbLigne = Range("D" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("$B$8:$N$299").AutoFilter
For i = 1 To NbBon
ActiveSheet.Copy after:=Worksheets("SAISIE COMMANDES")
ActiveSheet.Name = "Famille " & i
Range("I2") = "FAMILLE " & i
Range("A:E").Clear
Range("L:L").Resize(, (NbBon - 1) * 3).Delete
Rows("9:" & NbLigne).Delete
Sheets("SAISIE COMMANDES").Activate
colonne = 7 + i * 3 - 1
ActiveSheet.Range("$B$8:$N$299").AutoFilter Field:=colonne, Criteria1:="<>"
ActiveSheet.Columns(colonne).Resize(, 3).SpecialCells(xlCellTypeVisible).Copy
With Sheets("Famille " & i)
.Range("I:K").PasteSpecial
End With
Sheets("SAISIE COMMANDES").Activate
ActiveSheet.Range("$B$8:$N$299").AutoFilter
Next i
Application.ScreenUpdating = True
End Sub