Sub CouperColler()
Dim x$, c As Range
Do
x = InputBox("Entrez le numéro du dossier :", , x)
If x = "" Then Exit Sub
'nom corrigé pour correspondre au nom exact de l'onglet
Set c = Sheets("A venir").[A:A].Find(x, , xlValues, xlWhole) 'recherche en colonne A
Loop While c Is Nothing
'nom corrigé pour correspondre au nom exact de l'onglet
With Sheets("En cours PAO")
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
c.EntireRow.Copy .Cells(.Rows.Count, 1).End(xlUp)(2)
c.EntireRow.Delete
.Activate 'facultatif
End With
End Sub