ERREUR SUR PROCEDURE

Bonsoir le forum

voici un petit problème sur ma procèdure qui j'èspere pourras êtres résolu .

j'ai une Erreur d'excution '1004' qui me dit:

La methode Select de la classe Range à echoué.

je voudrais savoir comment solusionner ce petit problème .
voici ma procèdure :
Private Sub CommandButton2_Click() 'bounton 'Enregistrer la fiche'
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Dim Mois As String
Dim I As Integer
Dim y As Integer

Mois = ActiveSheet.Range('C3').Value
Set Wb1 = Workbooks.Open(Chemin)
Set Wb2 = ThisWorkbook

ActiveWorkbook.Save

Wb2.Sheets('Détail').UsedRange.Select
Selection.Copy
Wb1.Sheets(Mois).Range('A65536').End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteValues

Wb2.Sheets('Facture').UsedRange.Select
Selection.Copy
Wb1.Sheets(Mois).Range('A65536').End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteValues

With Wb1.Sheets(Mois)
For I = 1 To .UsedRange.Columns.Count
.Columns(I).ColumnWidth = Wb2.Sheets('Détail').Columns(I).ColumnWidth
Next
y = 1
For I = 2 To .UsedRange.Rowns.Count
.Rows(I).RownHeight = Wb2.Sheets('Facture').Rows(y).RowHeight
Next
End With
End Sub
L'erreur se situe au niveau de la ligne :

Wb2.Sheets('Détail').UsedRange.Select

Je vous remmercie par avence pour toutes les solutions où conseil qui me seront transmis .Je vous dit donc à bientôt sur le forum BR44