XL 2016 optimiser un code

[zakariamalki]

Bonjour,
comment je peux optimiser ce code vba

Do While i <= f
Worksheets(2).Select
If Cells(i, 1) = "Youness JATTI" And Cells(i, 20) <= lundimanquant And Cells(i, 19) = "" Then
Worksheets(1).Select
c = Range("F23").Value
Range("F23").Value = c + 1
Worksheets(2).Select
ElseIf Cells(i, 1) = "Yousra EL ATTAOUI" And Cells(i, 20) <= lundimanquant And Cells(i, 19) = "" Then
Worksheets(1).Select
c = Range("D23").Value
Range("D23").Value = c + 1
ElseIf Cells(i, 1) = "Lamyae EL MAHMOUDI" And Cells(i, 20) <= lundimanquant And Cells(i, 19) = "" Then
Worksheets(1).Select
c = Range("C23").Value
Range("C23").Value = c + 1
ElseIf Cells(i, 1) = "Meryem FNADI" And Cells(i, 20) <= lundimanquant And Cells(i, 19) = "" Then
Worksheets(1).Select
c = Range("E23").Value
Range("E23").Value = c + 1
ElseIf Cells(i, 1) = "Adam NADIM HANBALI" And Cells(i, 20) <= lundimanquant And Cells(i, 19) = "" Then
Worksheets(1).Select
c = Range("G23").Value
Range("G23").Value = c + 1
End If
i = i + 1
Loop

 

[Hasco]

Bonjour,

En joignant un fichier exemple anonymisé, avec juste ce qu'il faut pour comprendre les tenants et aboutissants de votre problème et bien-sûr LA MACRO.

Bon après-midi