Sub Macro052()
'
' Macro2 Macro
Sheets("Autocad_txt").Columns("A:C").Copy
Sheets("Mise_a_jour").Select
Range("A1").Select
ActiveSheet.Paste
fin = Range("c65536").End(xlUp).Row
fin2 = Sheets("Extraction_occupants").Range("c65536").End(xlUp).Row
For i = 2 To fin
For t = 2 To fin2
Range("H1") = Sheets("Mise_a_jour").Range("B" & i)
Range("i1") = Sheets("Extraction_occupants").Range("B" & t)
If Sheets("Mise_a_jour").Range("B" & i) = Sheets("Extraction_occupants").Range("B" & t) Then
Sheets("Extraction_occupants").Range(("A") & t & ":e" & t).Copy
Sheets("Mise_a_jour").Range(" D" & i).Select
ActiveSheet.Paste
End If
Next t
Next i
End Sub