Sub AjouteRappel()
'
' AjouteRappel Macro
'
'
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="mdp"
Range("C3").Select
ActiveCell.FormulaR1C1 = ""
Range("C4:D1000").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("C1").Select
ActiveCell.FormulaR1C1 = "Téléphone"
Call AjouteC33
Call AjouteD33
Rows("3:3").Select
Selection.RowHeight = 50
ActiveSheet.Rows(3).Copy ActiveSheet.Cells(Rows.Count, 1).End(xlUp)(2)
Rows("3:3").Select
Selection.RowHeight = 0
Call liens
Call DatesRappelsTrie
Range("F4").Select
ActiveSheet.Protect Password:="mdp", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.EnableEvents = True
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub