Sub Test_vr()
if msgbox ("voulez vous copier blablabla blablabla",vbyesno)= vbyes then
Dim ws_1 As Worksheet
Dim ws_2 As Worksheet
Dim Valeur_Test As String
Dim DerniereLigne As Integer
Dim Lig
Set ws_1 = Worksheets(1)
Set ws_2 = Worksheets(2)
Valeur_Test = ws_1.Cells(1, 4).Value
DerniereLigne = ws_2.Cells(65536, 4).End(xlUp).Row
Set Rech = ws_2.Columns(4).Find(Valeur_Test)
If Not Rech Is Nothing Then
Lig = Rech.Row
End If
ws_2.Range(ws_2.Cells(Lig, 1), ws_2.Cells(Lig, 1)).Copy ws_1.Cells(15, 2)
ws_2.Range(ws_2.Cells(Lig, 2), ws_2.Cells(Lig, 2)).Copy ws_1.Cells(15, 4)
ws_2.Range(ws_2.Cells(Lig, 3), ws_2.Cells(Lig, 3)).Copy ws_1.Cells(18, 3)
ws_2.Range(ws_2.Cells(Lig, 5), ws_2.Cells(Lig, 5)).Copy ws_1.Cells(18, 5)
end if
End Sub