Cette manip peut se faire par Filtre élaboré ou bien avec une petite macro.
Pour la macro jai pris comme exemple que tu as 3 feuilles dans ton classeur (Base, Boulangerie et Patisserie). Tu mets à jour la feuille Base et la macro met à jour la feuille Boulangerie et la feuille Patisserie. Il faut que tu adaptes les colonnes et les lignes à tes feuilles.
Si tu ne sais pas comment faire tu peux menvoyer ton classeur, je te le fais vite.
Sub MiseAJour()
Dim LigneBase As Integer
Dim LigneBoulangerie As Integer
Dim LignePatisserie As Integer
Application.ScreenUpdating = False
Range(“Boulangerie!A2:H1000”).Value = “”
Range(“Patisserie!A2:H1000”).Value = “”
LigneBase = 2
LigneBoulangerie = 2
LignePatisserie = 2
Do Until Trim(Range(“A” & LigneBase).Value) = “”
If Trim(Range(“I” & LigneBase).Value) = “O” Then
Range(“Boulangerie!A” & LigneBoulangerie & “:H” & LigneBoulangerie).Value = Range(“A” & LigneBase & “:H” & LigneBase).Value
LigneBoulangerie = LigneBoulangerie + 1
End If
If Trim(Range(“J” & LigneBase).Value) = “O” Then
Range(“Patisserie!A” & LignePatisserie & “:H” & LignePatisserie).Value = Range(“A” & LigneBase & “:H” & LigneBase).Value
LignePatisserie = LignePatisserie + 1
End If
LigneBase = LigneBase + 1
Loop
MsgBox “Mise à jour Ok…”
End Sub