Erreur code VBA

Bonjour a tous, j'ai une erreur dans un code que j'ai écrit mais je ne comprend pas quelle est cette erreur pourriez vous m'aider svp merci d'avance.

Voici la table

voici le code écrit

Sub Clients()
Dim hm As Integer
Dim hc As Integer
Dim fm As Integer
Dim fc As Integer
Dim Genre As String
Dim mariee As Boolean
hm = 0
hc = 0
fm = 0
fc = 0
Sheets("Clients").Select
Range("E2").Select
Do While Not IsEmpty(ActiveCell)
Genre = ActiveCell.Value
mariee = ActiveCell.Value
If Genre = "Homme" And mariee Then
hm = hm + 1
ElseIf Genre = "Homme" And Not mariee Then
hc = hc + 1
ElseIf Genre = "Femme" And Not mariee Then
fc = fc + 1
ElseIf Genre = "Femme" And mariee Then
fm = fm + 1
End If
Loop
MsgBox "Il y a " & hm & " Hommes Mariés"
MsgBox "Il y a " & hc & " Hommes Célibataires"
MsgBox "Il y a " & fm & " Femmes Mariées"
MsgBox "Il y a " & fc & " Femmes Célibaitaires"
End Sub

Bonjour,

Un essai > selon ce qui est lisible dans ton image ...

Note : code corrigé ... Corrigé une 2e fois ...

Sub Clients()
Dim hm As Integer
Dim hc As Integer
Dim fm As Integer
Dim fc As Integer
Dim Genre As String
Dim Statut As String
   hm = 0
   hc = 0
   fm = 0
   fc = 0
   Sheets("Clients").Select
   Range("E2").Select
   Do While Not IsEmpty(ActiveCell)
      Genre = ActiveCell.Value
      Statut = Cells(ActiveCell.Row, "L")
      If Genre = "Homme" And Statut = "mariee" Then
         hm = hm + 1
      ElseIf Genre = "Homme" And Statut = "Celibataire" Then
         hc = hc + 1
      ElseIf Genre = "Femme" And Statut = "mariee" Then
         fc = fc + 1
      ElseIf Genre = "Femme" And Statut = "Celibataire" Then
         fm = fm + 1
      End If
      ActiveCell.Offset(1, 0).Select
   Loop
   MsgBox "Il y a " & hm & " Hommes Mariés" & Chr(10) & Chr(10) & _
          "Il y a " & hc & " Hommes Célibataires" & Chr(10) & Chr(10) & _
          "Il y a " & fm & " Femmes Mariées" & Chr(10) & Chr(10) & _
          "Il y a " & fc & " Femmes Célibaitaires"
End Sub

ric

Bonjour,

Quelle est l'intitulé de l'erreur, sur quelle ligne ?

A+

Edit : bonjour ric

Bonjour à tous,

J'ai corrigé le code de mon poste précédent ...

ric

merci beaucoup de m'avoir répondu je vais tester le code et j'espère qui fonctionnera

Salut Bonouh,
Salut l'équipe,

sauf erreur, c'est un DO...LOOP infini : il n'y a pas de changement de cellule d'un calcul à... pas d'autre !

A+

Bonjour à tous,

Pour la 2e fois > j'ai corrigé le code de mon poste précédent ...

Je n'ai pas porté attention et j'ai collé le mauvais code ...

J'en suis fort désolé ...

Ce n'est pas le plus beau code > mais j'essaie de rester dans la ligne du demandeur pour qu'il avance un pas à la fois ...

Tel que je le fais moi même ...

ric

Apres si vous avez des conseils pour m'ameliorer je suis preneur

merci

Bonjour a tous, j'ai essayer le code situer ci-dessus mais cela m'affiche ceci :

Erreur d'exécution « 1004 »:

Erreur définie par l'application ou par l'objet

pourriez-vous m'aider, merci d'avance.

Bonjour,

Sur quelle ligne de code l'erreur survient-elle ?

Si tu ne sais pas > regarde ma signature ...

ric