Bonjour,

Je sais que vous n'aimez pas trop les fichiers joints, je vous garantie que ces deux là sont sans virus. Mais compte-tenu de ces 2 classeurs je me voyais mal vous présenter le sujet avec du texte !
Présentation du sujet :
1 classeur "devis général" avec un bouton de commande (en A10) pour lancer la macro
1 classeur "mes devis"
Ce que la macro doit éxécuter:
Après la saisie du "prénom", du mois et de l'ouverture du classeur "mes devis" la macro doit sélectionner dans "devis général" à partir de la ligne 62 toutes les lignes (colonnes A à BZ) qui correspondent au "prénom", et copier cette sélection dans "mes devis" à partir de la ligne 48 (colonnes A à BZ)

Exemple :
Si le prénom est Emmanuel, sélection des lignes 62 et 64 (de A à BZ) dans classeur "devis général"
Copie de ces 2 lignes dans le classeur "mes devis" à partir de la ligne 48 (colonnes A à BZ)

J'ai essayé de changer dans la macro
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dim dl1 As Long
dl1 par bz62
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set plage = wrso.Range("D1:D" & wrso.Cells(wrso.Rows.Count, 4).End(xlUp).Row)
"D1-D" par "BZ62:BZ"
4 par 25
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
wrso.Range("a" & cel.Row & ":d" & cel.Row).Copy _
            Destination:=wrsd.Range("a" & dl1 & ":d" & dl1)
":d" par ":bz"

Mais impossible de trouver la bonne solution... Je suis NUL.....
Si quelqu'un peut m'aider merci d'avance
Lenul78570