Sub Macro1()
Dim ong As Worksheet 'déclare la variable ong (ONGlet)
Dim pl As Range 'décalre la variable pl (PLage)
For Each ong In Sheets 'boucle sur tous les onglets du classeur
ong.Activate 'active l'onglet
Set pl = Application.Union(Columns(4), Columns(7)) 'définit la variable pl
'remplace "confirmé" pas "Avis Passage" dans la plage pl
pl.Replace What:="confirmé", Replacement:="Avis Passage", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next ong 'prochain onglet du classseur
End Sub