Bonjour à tous,
Je souhaite faire une recherche d'une chaine de caractères dans une feuille et si cette chaine est trouvée je souhaite couper la ligne entière où elle se situe et la copier dans une autre feuille. Et je n'arrive pas à couper toute la ligne mais seulement la premiere case de la ligne...
Je vous mets le code que j'ai déjà fait!
Et je voudrais aussi que cette ligne soit coller à la première ligne vide de la feuille "liste des DDQs"
Sub Liste_des_DDQ()
Dim Num_DDQ As String
Dim ligne As Long
Num_DDQ = InputBox("Entrez un numéro de DDQ correspondant à un nouveau projet")
Sheets("Rapport MEP").Select
Cells.Find(What:=Num_DDQ, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ligne = ActiveCell.Row
Rows("ligne:ligne").Select <= ca bloque la!
Range("B" & CStr(ligne)).Activate
Range("B" & CStr(ligne)).Select
selection.Cut
Sheets("Liste des DDQ").Select
ActiveSheet.Paste
End Sub
Merci par avance de votre aide