bonjour a vous tous
dans ce code trouvé sur le net et modifié pour mes besoins
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Créer_La_Facture()
Dim Sh As Worksheet, Trouve As Range
Feuil9.Copy
Set Sh = ActiveSheet
Sh.Name = "Facture " & Sh.Range("D1").Value
Sh.Range("D1") = "FACTURE"
With Sh
        With .Range("C:C")
            'Cette méthode recherche des informations spécifiques dans une plage.
           Set Trouve = .Find(What:="Arrêtée Somme", LookIn:=xlValues, _
                LookAt:=xlPart, MatchCase:=False, SearchDirection:=xlNext)
            'Cette méthode renvoie Nothing si aucune correspondance n'est trouvée
           If Not Trouve Is Nothing Then
                'Si on a un résultat, on définit la plage à effacer
               'Dans ce cas, on décale d'une ligne et on redimensionne
               'la plage de 20 lignes et 2 colonnes
               Trouve.Offset(1).Resize(20, 2).Delete (xlUp)
            End If
        End With
    End With
End Sub
a quel endroit peut-on ajouter des lignes afin de copier sur la feuille devis d'autres informations
et aussi comment quand le code est appelé créer un bouton automatiquement et inclure un code a ce bouton, ou faire appel a un code dans le classeur qui a fait appel a cette macro

Pascal