Option Explicit
Private Sub RPL(sh$, s1$, s2$)
If Left$(sh, Len(s1)) = s1 Then sh = Replace$(sh, s1, s2)
End Sub
Sub RNF()
Dim sh$, n%, i%
Application.ScreenUpdating = 0
n = Worksheets.Count
For i = 4 To n
sh = Trim$(Worksheets(i).Name)
sh = Replace$(sh, "SEMES 1", "S1")
sh = Replace$(sh, "SEMES 2", "S2")
sh = Replace$(sh, "SEM (2)", "S3")
sh = Replace$(sh, "SEMES", "S2")
RPL sh, "Base de donné", "BDD"
RPL sh, "Elèves et matières", "EVM"
RPL sh, "FICHIER DES NOTES", "FDN"
RPL sh, "RECAPITULATIF MOYENNE", "RCM"
RPL sh, "ENTREPRE", "ETRP"
Worksheets(i).Name = sh
Next i
End Sub