Sub modifieNom()
Dim Mot$
For Each f In Range([A4], [A4].End(xlDown))
If f.Offset(0, 2) <> "" Then
If Not f = ActiveWorkbook.Name Then
Mot = "Sal-"
Mot = Mot & Mid(f.Text, 6, 5)
Mot = Replace(Mot, ".", "-")
f.Offset(0, 2) = Mot & "-" & f.Offset(0, 1) & Right(f.Text, 4)
End If
End If
Next f
End Sub