2 solutions :
1) soit tu fait une macro,
2) soit tu utilises rechercher-remplacer
1) rechercher 'ppp' , remplacer '^p'
2) tu colles ce code dans un module :
Sub RechRemp()
'
' recherche et remplace
'
Cells.Replace What:="ppp", Replacement:="^P", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub