Bonsoir smeloche,
Bienvenue sur le forum,
voici deux réponses en une, une troisième, purement formule devant être élaborée par un vrai connaisseur!
- une solution, mi-formules (en I2,I3,I4) -mi-VBA avec la réponse en H6 ;
- une solution 100% VBA avec la (même ) réponse en I6.
Private Sub Worksheet_Change(ByVal Target As Range)
'
If Not Application.Intersect(Target, Range("H2:H4")) Is Nothing Then
'
'avec les formules en I2, I3, I4 en [H6]
[H6] = Cells([I2], (2 * [I4]) + [I3])
'
'sans formules en VBA en [I6]
iA = IIf(Int([H2] / 5) > 6, 5 + Int([H2] / 5), 11)
iG = IIf([H3] = "Homme", 0, 1)
iNF = IIf([H4] = "Fumeur", 5, 4)
[I6] = Cells(iA, (2 * iNF) + iG)
'
End If
'
End Sub
En attendant le passage d'un crack, c'est tout ce que j'ai en magasin!
A adapter selon la situation réelle de ton fichier!
A+