Bonjour , je souhaiterai supprimer modifier une cellule

j'ai une liste de cellules que je souhaite modifier
les cellules peuvent avoir des formats différents
exemple :
colonne A
robert.tel
client_test2_20150724_073425.tel
client_durant_20150724_083425.tel
Fournisseur_dupont_20150724_083425.tel

je souhaiterai supprimer les heures
pour avoir en colonne B
robert.tel
client_test2_20150724.tel
client_durant_20150724.tel
Fournisseur_dupont_20150724.tel

j'ai fait cette macro
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
For c = 2 To i + 1
 lib1 = Cells(c + 1, 7)
 If Right(lib1, 3) = "tel" Then Cells(c + 1, 8) = Left(lib1, Len(lib1) - 11) & ".tel" Else Cells(c + 1, 8) = lib1
 Next
mon souci vient du fait que si on relance la macro il supprimera encore et encore