voici ma solution je ne sais pas si on peu faire autrement mais ça fonctionne
Code :
With Sheets("Demande de travaux")
If .Range("T2").Value <> .Range("V2").Value Then
OD.Range("A" & lign + 1).Value = .Range("T2").Value
OD.Range("B" & lign + 1).Value = .Range("K4").Value
OD.Range("C" & lign + 1).Value = .Range("K43").Value
OD.Range("D" & lign + 1).Value = .Range("E3").Value
OD.Range("E" & lign + 1).Value = .Range("K3").Value
OD.Range("F" & lign + 1).Value = .Range("R3").Value
OD.Range("G" & lign + 1).Value = .Range("E4").Value
OD.Range("H" & lign + 1).Value = .Range("R4").Value
OD.Range("I" & lign + 1).Value = .Range("A21").Value
OD.Range("J" & lign + 1).Value = .Range("A35").Value
OD.Range("K" & lign + 1).Value = .Range("M19").Value
OD.Range("L" & lign + 1).Value = .Range("S19").Value
.Range("V2").Value = .Range("T2").Value
Else: MsgBox "Le N° de Fiche deja utilisé-creer nouvelle fiche avant !"