Application.ScreenUpdating = False
DernLignPAMO = sheets("suivi_dossier_(3)").Range("A65536").End(xlUp).Row
DernLignCollabo = ActiveSheet.Range("A65536").End(xlUp).Row
For i = 2 To DernLignCollabo
Nom = ActiveSheet.Range("A" & i).Value
ActiveSheet.Rows(i).Copy
NomPAMO = sheets("suivi_dossier_(3)").Columns(1).Find(Nom, _
lookat:=xlWhole)
If NomPAMO Is Nothing Then
MsgBox ("inexistant")
Else
LigneNomPAMO = sheets("suivi_dossier_(3)").Columns(1).Find(Nom, _
lookat:=xlWhole).Row
sheets("suivi_dossier_(3)").Range("A" & LigneNomPAMO).PasteSpecial
End If
Next i