Reprise du message précédent :

ok je testerai merci !
derriere les then c'est de variable=variable+1 (juste du comptage suivant les cas)

Bon, alors
 
Je ne comprends toujours pas pourquoi tu définis une range "L" si tu vas chercher les valeurs se trouvant dans la colonne d'a coté avec ton ".offset(0,1)"...
 
Mais bon, voila ce que je ferai :
 
sub test()
dim A as integer, age as integer
 
application.screenupdating=false
 
A = 1
'On récupère la valeur de la colonne "M" (la 13)
'Mais ca marche avec n'importe quelle autre colonne
 
Do Until IsEmpty(Cells(A, 13))
  age = CInt(Format(Now, "[$-40C]yyyy;@" )) - CInt(Cells(A, 13))
  ...
  A = A + 1
Loop
 
Application.ScreenUpdating = False
End Sub

 
 
je doit d'apres les colonne de mon tableau connaitre le nombre d'homme seul, de femme seule, homme avec enfant, de femme avec enfant, de couple sans enfant de couple avec enfant, et de classer tout ca avec des tranche d'age
j'ai besoins de L pour connaitre le sexe du chef de famille, la M pour connaitre son age une autre pour savoir si le chef de famille a un conjoint, une autre pour savoir si le chef de famille a un enfant.

ok
Mais ce que je t'ai montré marche ou tu as besoin d'autre chose ?

J'ai pas encore pu tester le tableau ainsi qu'excel sont loins de chez moi.  
dès que j'ai pu tester je reposte
 
merci

alors je  suis en train de faire le test et ca marche pas

mon code :

tjs incompatibilité des type
j'enverai par mail mon tableau avec des données bidon a ceux qui voudron bien y regarder (j'ai pas de ftp pour le mettre dessus)

Alors,
 
1/ Une fois encore... pas la peine de passer par des "set donnes=..." ca ne sert à rien !
 
Ecris plutot :
 
sub test()
dim A as integer, age as integer
 
application.screenupdating=false
 
A = 1
 
Do Until IsEmpty(Thisworkbook.worksheets("Données" ).Cells(A, 13))
  age = CInt(Format(Now, "[$-40C]yyyy;@" )) - CInt(Cells(A, 13))
   
  If (age >= 18) Then...
 
  If (age <= 25) Then...
  ...
  A = A + 1
Loop
 
Application.ScreenUpdating = False
End Sub
 
2/ Par ailleurs, j'ai testé ton code et il fonctionne chez moi...
Quelle est la ligne qui plante ?

c'est cette ligne qui plante :  
age = CInt(Format(Now, "[$-40C]yyyy;@" )) - CInt(Cells(cpt, 13)) ---> incompatibilité des type