Sub cartman()
Application.ScreenUpdating = False
'on commence a remplir l onglet fin de mois a partir de la troisieme lignes
j = 3
Sheets("Feuil2").Select
'on habille le tableau pour la fin de mois
Cells(j, 1) = "N°"
Cells(j, 2) = "Nom"
Cells(j, 3) = "Prenom"
Cells(j, 5) = "nature Test"
Cells(j, 6) = "Observation"
Cells(j, 7) = "Heure"
'on parcours notre liste de n°1
Sheets("Feuil1").Select
For i = 2 To Range("A65536").End(xlUp).Row
'on test si la valeur est oui
If Cells(i, 6) = "OUI" Then
'si c est oui on applique le truc que l on veut
Sheets("Feuil1").Select
'on récupere les info
num = Cells(i, 1)
nom = Cells(i, 2)
pren = Cells(i, 3)
nat = Cells(i, 4)
obs = Cells(i, 5)
heur = Cells(i, 7)
'je me met sur la feuille 2 pour faire la fin du mois
Sheets("Feuil2").Select
'on remet les donnés ici j est l indice des lignes de la feuilles mois
j = j + 1
Cells(j, 1) = num
Cells(j, 2) = nom
Cells(j, 3) = pren
Cells(j, 4) = nat
Cells(j, 5) = obs
Cells(j, 6) = heur
Total_h = Total_h + heur
Cells(j, 7) = Cells(j, 6) * 5.25
total_m = total_m + Cells(j, 7)
End If
Sheets("Feuil1").Select
'nombre de personne a payer = j -3 car on a initialise j à 3
nb_personne = j - 3
Next i
Sheets("Feuil2").Select
'on met le reste apres
j = j + 1
'total
Cells(j, 5) = "total"
Cells(j, 6) = Total_h
Cells(j, 7) = total_m
Cells(j + 3, 1) = "Nombre de personne " & nb_personne
Application.ScreenUpdating = True
End Sub