Racourcir un code

  NumProchain = Application.Max(Range("BDD1!$A:$A"), Range("BDD2!$A:$A"), Range("BDD3!$A:$A"), Range("BDD4!$A:$A"), Range("BDD5!$A:$A"), Range("BDD6!$A:$A"), Range("BDD7!$A:$A"), Range("BDD8!$A:$A"), Range("BDD9!$A:$A"), Range("BDD10!$A:$A"), Range("BDD11!$A:$A"), Range("BDD12!$A:$A"), Range("BDD13!$A:$A"), Range("BDD14!$A:$A"), Range("BDD15!$A:$A"), Range("BDD16!$A:$A"), Range("BDD17!$A:$A"), Range("BDD18!$A:$A"), Range("BDD19!$A:$A"), Range("BDD20!$A:$A"), Range("BDD21!$A:$A"), Range("BDD22!$A:$A"), Range("BDD23!$A:$A"), Range("BDD24!$A:$A")) + 1

Private Sub CommandButton8_Click()

For j = 1 To 24
 NumProchain = Application.Max(Range("BDD & j)!$A:$A"))
 Next j

End Sub