Ajout recette

MonProchainNumero = WorksheetFunction.Max([COLOR=red][B][[/B][/COLOR]A:A[B][COLOR=red]][/COLOR][/B]) + 1

Private Sub Ajouter_Click()
Dim DerLigne As Integer
Dim R As Range

'//// ajout pmo ////
With Sheets("Recettes")
  Set R = .[a1].CurrentRegion
  R.Sort Key1:=.[b2], Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End With
'///////////////////

DerLigne = Sheets("Recettes").Range("A65536").End(xlUp).Row + 1
With Sheets("Recettes")
.Cells(DerLigne, 1) = ComboType.Column(0, ComboType.ListIndex)
.Cells(DerLigne, 2) = .Range("B" & DerLigne - 1).Value + 1
.Cells(DerLigne, 3) = TxtRec
.Cells(DerLigne, 4) = Txtprog
.Cells(DerLigne, 5) = TexEne
.Cells(DerLigne, 6) = TexLiP
.Cells(DerLigne, 7) = TexGlu
.Cells(DerLigne, 8) = TexPro
.Cells(DerLigne, 9) = TexNB
LabID = .Range("B" & DerLigne - 1).Value + 1
End With
CmdIng.Enabled = True
End Sub

Set plage = Worksheets("Feuil1").Range("A:A")
rep = Application.WorksheetFunction.Max(plage) + 1

rep = WorksheetFunction.Max(Feuil1.[A:A]) + 1