Private Sub Sup_Retour_Ligne(ByVal Der_Lig_A_Traiter As Integer, Optional Nom_Classeur)
'Procèdure de suppression des retours chariot dans les noms et prénoms
'Suppression dans le classeur "Test annonce"
If Nom_Classeur = wbActive.Name Then
wbActive.Sheets("Feuil1").Range("I15:J" & Der_Lig_A_Traiter).Replace What:=Chr(10), Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'Suppression dans "liste Personnel"
Else
wbListeP.Sheets("Feuil1").Range("B1:C" & Der_Lig_A_Traiter).Replace What:=Chr(10), Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
End Sub