Code VBA agissant sur 2 feuilles

bonjour

euh.....je vais dire une GROSSE bêtise....
en sélectionnant les 2 feuilles (touche CTRL) avant l'insertion ???????
euh .... en copiant le bouton ????

Bonjour
Mettez un bouton de type formulaire (pas activeX) et copier ce code dans un module (pas le module de la feuille)

Sub InsertLignes()
    For i = 1 To 2
        Sheets("Feuil" & i).Cells(3, 1).EntireRow.Insert
        Sheets("Feuil" & i).Rows(Cells(3, 1).Row + 1).Copy Sheets("Feuil" & i).Rows(Cells(3, 1).Row)
        On Error Resume Next
        Sheets("Feuil" & i).Rows(Cells(3, 1).Row).SpecialCells(xlCellTypeConstants, 23).ClearContents
        Dim plage As Range
        Set plage = Sheets("Feuil" & i).Range("A3:G3000")
        plage.Borders(xlEdgeBottom).LineStyle = xlContinuous
        plage.Borders(xlInsideHorizontal).LineStyle = xlContinuous
    Next i
End Sub

Essayez
Cdlt

Merci. Fonctionne très bien sur un classeur d'essai, vierge.
Par contre, sur le classeur ou je dois appliquer ce code:
Ma Feuil1 s'appelle "Fait le"
Ma Feuil2 s'appelle "Données"
Quand j'essaie d'adapter, Excel me renvoie (en gras ici, puisque je ne peux pas mettre de couleur):

Private Sub CommandButton3_Click()
'Sub InsertLignes()
For i = 1 To 2
Sheets("Fait le" & i).Cells(3, 1).EntireRow.Insert
Sheets("Fait le" & i).Rows(Cells(3, 1).Row + 1).Copy Sheets("Feuil" & i).Rows(Cells(3, 1).Row)
On Error Resume Next
Sheets("Données" & i).Rows(Cells(3, 1).Row).SpecialCells(xlCellTypeConstants, 23).ClearContents
Dim plage As Range
Set plage = Sheets("Données" & i).Range("A3:G3000")
plage.Borders(xlEdgeBottom).LineStyle = xlContinuous
plage.Borders(xlInsideHorizontal).LineStyle = xlContinuous
Next i
End Sub

Voilà

Sub InsertLignes()
    For i = 1 To 2
        Sheets(i).Cells(3, 1).EntireRow.Insert
        Sheets(i).Rows(Cells(3, 1).Row + 1).Copy Sheets(i).Rows(Cells(3, 1).Row)
        On Error Resume Next
        Sheets(i).Rows(Cells(3, 1).Row).SpecialCells(xlCellTypeConstants, 23).ClearContents
        Dim plage As Range
        Set plage = Sheets(i).Range("A3:G3000")
        plage.Borders(xlEdgeBottom).LineStyle = xlContinuous
        plage.Borders(xlInsideHorizontal).LineStyle = xlContinuous
    Next
End Sub

Cdlt