Target adress non compris

If _Not Application.Intersect(Target, Range("DOS_DeclanchBar_P1,DOS_DeclanchBar_P2,DOS_DeclanchBar_P3")) Is Nothing then
Reprise = Target.Cells(1).Address
AdresseTarget = Target.Address  
FeuilleTarget = Target.Worksheet.Name
LigneTarget = Target.Row 

NomTarget = Target.Cells(1).Name.Name  
ValeurTarget = Range(NomTarget).Cells(1).Value

PrepaRefpret = Right(NomTarget, 1)  

If IsNumeric(PrepaRefpret) = False Then 
RefPretTarget = 0
Else
RefPretTarget = CDbl(PrepaRefpret)
End If


RefPret = RefPretTarget