Bonsoir,
j 'ai créée le code suivant :
Sub Macro2()
'
' Macro2 Macro
ActiveSheet.Unprotect Password:="ln"
Call Message
'
Range("A4:B11").Select
Selection.Replace What:="1", Replacement:="N", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _...