Comment passer d'un bloc à un autre

bonsoir le forum

voilà je voudrais savoir comment traduire en vba et placer la condition suivante :

si la plage A1:A79 en occuper passer à l'autres instruction

je vous donne ci-dessous les instructions consernées ,à noter quelle fonctionne toutes les deux individuelllement ,mais la première ne sert que pour le premier enregistrement .


Private Sub CommandButton2_Click() 'bouton "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

'Première copie du mois qui fonctione

Wb2.Sheets("Détail").Range("A1:G29").Copy Destination:=Wb1.Sheets(Mois) _
.Range("A65536").End(xlUp)
Wb2.Sheets("Facture").Range("1:50").Copy Destination:=Wb1.Sheets(Mois) _
.Range("A65536").End(xlUp).Offset(1, 0)

With Wb1.Sheets(Mois)
For I = 1 To .Range("A1:G29").Columns.Count
.Columns(I).ColumnWidth = Wb2.Sheets("Détail").Columns(I).ColumnWidth
Next
y = 1
For I = 2 To .Range("A1:G29").Rows.Count
.Rows(I).RowHeight = Wb2.Sheets("Détail").Rows(y).RowHeight
Next
End With
Application.CutCopyMode = False


'Enregistrement suivant

Wb2.Sheets("Détail").Range("A1:G29").Copy Destination:=Wb1.Sheets(Mois) _
.Range("A65536").End(xlUp)(15)
Wb2.Sheets("Facture").Range("1:50").Copy Destination:=Wb1.Sheets(Mois) _
.Range("A65536").End(xlUp).Offset(1, 0)

With Wb1.Sheets(Mois)
For I = 1 To .Range("A1:G29").Columns.Count
.Columns(I).ColumnWidth = Wb2.Sheets("Détail").Columns(I).ColumnWidth
Next
y = 1
For I = 2 To .Range("A1:G29").Rows.Count
.Rows(I).RowHeight = Wb2.Sheets("Détail").Rows(y).RowHeight
Next
End With
Application.CutCopyMode = False

End Sub

Voilà en espèrant avoir ètè claire sur ma demande et en vous remerciant des rèponses à venir je vous dis à plus sur se fil

br44