Macro

http://cjoint.com/?lvnAbzi5HB


Merci

Bonjour.

Bonjour.
Essaie :

Sub essai()
Dim cell As Range
For Each cell In Range("E1", [E10000].End(xlUp))
If cell.Value = "toto" Then
Range("G10").Copy cell
End If
Next
End Sub

Daniel

Merci Daniel ca fonctionne tres bien"Daniel.C" wrote:

Merci Daniel ca fonctionne tres bien