[COLOR=blue]For[/COLOR] [COLOR=blue]Each[/COLOR] c [COLOR=blue]In[/COLOR] plage
[COLOR=blue]If[/COLOR] [COLOR=blue]Not[/COLOR] IsEmpty(c) [COLOR=blue]Then[/COLOR]
[COLOR=blue]Set[/COLOR] cSource = Sheets([I]"Feuil3"[/I]).UsedRange.Find(what:=c, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=[COLOR=blue]False[/COLOR])
[COLOR=blue]If[/COLOR] [COLOR=blue]Not[/COLOR] cSource [COLOR=blue]Is[/COLOR] [COLOR=blue]Nothing[/COLOR] [COLOR=blue]Then[/COLOR]
[COLOR=blue]If[/COLOR] cSource.Offset(0, 1).Value = [I]"A"[/I] [COLOR=blue]Then[/COLOR]
c.Copy Destination:=Sheets([I]"Feuil2"[/I]).Range(c.Address)
[B] c.Clear [COLOR=green]'Nettoie la cellule, contenu et format.[/COLOR][/B]
[COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
[COLOR=blue]Next[/COLOR] c