Excel - Le dimanche 23 Octobre 2005 ? 03:00 par fred :Merci bien sa nous a vraiment s?

Le dimanche 23 Octobre 2005 ? 03:00 par fred :
Merci bien sa nous a vraiment s?rvie

Bonjour,

Essaie ceci
Les n° commencent en ligne 2 dans l'exemple
'------------------
Sub jj()
For Each c In Range("c2:c" & Cells(Rows.Count, 3).End(xlUp).Row)
If c.Offset(0, -1) = "Téléphone" And Left(Cells(c.Row, 3), 9) <> "Téléphone" Then
Cells(c.Row, 3) = "Téléphone " & c
End If
Next
End Sub
'------------

--
Salutations
JJ


ma-dnXlz3vifmZnN4p2dnAA@giganews.com...