Merci à ouskel'n'or pour ces réponse efficace.
Sa me soul car j'ai beaucoup de soucis avec mon code...J'ai deux questions, comment faire une boucle qui va de 2 par 2???
Et regardez
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
For j = 9 To NbLigne
       If Workbooks(1).Sheets(13).Cells(j, 3).Value = ActiveSheet.Name And numero = Workbooks(1).Sheets(13).Cells(j, 4).Value Then
 
    Workbooks(1).Sheets(13).Cells(j, 2).Value = total
    Workbooks(1).Sheets(13).Cells(1, 1).Value = "oui"
       Else
    Workbooks(1).Sheets(13).Cells(p, 1).Value = Phase & d
    Workbooks(1).Sheets(13).Cells(p, 2).Value = total
    Workbooks(1).Sheets(13).Cells(p, 3).Value = ActiveSheet.Name
    Workbooks(1).Sheets(13).Cells(p, 4).Value = numero
    Workbooks(1).Sheets(13).Cells(1, 1).Value = "non"
       End If
Next j
Il m'écrit toujours non dans la case 1,1.
C'est bizarre car je clique deux fois sur le meme bouton il m'écrit non toujours comprend pus rien moi snifffff

Code : Sélectionner tout - Visualiser dans une fenêtre à part
NbLigne = Worksheet(13).UsedRange.Rows.Count
Sa doit venir de sa le petit problème...