[SIZE=2][COLOR=NAVY]Dim[/COLOR] Plage [COLOR=NAVY]As[/COLOR] Range
[COLOR=NAVY]Dim[/COLOR] L [COLOR=NAVY]As Long
Set[/COLOR] Plage = Range("A1:A10")
[COLOR=NAVY]For[/COLOR] L = 1 [COLOR=NAVY]To[/COLOR] Plage.Count [COLOR=NAVY]Step[/COLOR] 2
Plage(L).Value = Range("B1").Value
[COLOR=NAVY]Next[/COLOR] L[/SIZE]