[SIZE=2][COLOR=NAVY]Dim[/COLOR] Cellule [COLOR=NAVY]As[/COLOR] Range
[COLOR=NAVY]For Each[/COLOR] Cellule [COLOR=NAVY]In[/COLOR] Sheets("nomfeuille1").UsedRange
[COLOR=GREEN]'...[/COLOR]
[COLOR=GREEN]'...[/COLOR]
[COLOR=NAVY]Next[/COLOR] Cellule[/SIZE]