Macro vb

Bonjour,

Je voudrais capter le max de la colonne 29 et diviser le nombre contenu en colonne 18 par le max equivalent a la colonne 29
Si par exemple le max en colonne 29 est 12 ce 12 a un equivalent en colonne 18 c'est ce max que je voudrais stocker dans nbmax

merci

Dim H As Integer, Nbmax As Double, Plage2 As Range
Nblig = 1

Columns("S:S").Select
Selection.Insert Shift:=xlToRight
Range("S1").Select
ActiveCell.FormulaR1C1 = "Diff Price"

Do While IsEmpty(Cells(Nblig + 1, 4)) = False

Nblig = Nblig + 1
H = Nblig

Do Until Cells(Nblig, 4) <> Cells(Nblig + 1, 4)

Nblig = Nblig + 1

Loop

Set Plage2 = Range(Cells(H, 29), Cells(Nblig, 29))
Nbmax = WorksheetFunction.Max(Plage2)

For Each cel In Plage2

If IsNumeric(cel) = True Then cel.Offset(0, -10).Value = (cel.Offset(0, -11).Value) / Nbmax - 1
If IsNumeric(cel) = False Then cel.Offset(0, -10).Value = "n/a"

Next cel

Loop