Sub test()
Dim mesGD
mesGD = Array("d34", "g12", "d03", "g05", "d45", "g44", "d87", "g23", "d22", "g33", "d28", "g07", "d46")
MsgBox MonMaxPour(mesGD, "g")
MsgBox MonMaxPour(mesGD, "d")
End Sub
Function MonMaxPour(arr, prefixe$)
Dim X&
For i = LBound(arr) To UBound(arr): X = Application.Max(X, Val(Replace(arr(i), prefixe, ""))): Next
MonMaxPour = prefixe & X
End Function