Option Explicit
Sub Recopie()
Dim Trouve As Range
Dim Ligne As Long
Set Trouve = Sheets("base").Range("E:E").Find(Sheets("Sal + Hrs supp.2014").Range("C3"), lookat:=xlWhole)
If Trouve Is Nothing Then
msgbox " Personne non trouvée dans la base": Exit sub
Else
Ligne = Trouve.Row
End If
Sheets("base").Range("AO" & Ligne) = Sheets("Sal + Hrs supp.2014").Range("J55")
Sheets("base").Range("AQ" & Ligne) = Sheets("Sal + Hrs supp.2014").Range("K55")
Sheets("base").Range("AR" & Ligne) = Sheets("Sal + Hrs supp.2014").Range("L55")
Sheets("base").Range("AT" & Ligne) = Sheets("Sal + Hrs supp.2014").Range("M55")
Sheets("base").Range("AU" & Ligne) = Sheets("Sal + Hrs supp.2014").Range("N55")
Sheets("base").Range("AW" & Ligne) = Sheets("Sal + Hrs supp.2014").Range("O55")
End Sub