Bonsoir
J'ai une macro, dont une partie me parais fastidieuse, je mets une partie du code en dessus. Je souhaterais simplifier cette derniere. si la cel O12 inf a 0 etcet j'ai cela jusqu'a la cel O40 et chaque foir je recopie le if et end if. Quelqu'un peux t'il me dire comment simplifier tout ca.
merci
If Range("O12") > "0" Then
Sheets("1").Activate
Range("E4") = "Especes"
Range("B4") = Range("E1")
End If
Sheets("Menu").Select
If Range("O13") > "0" Then
Sheets("1").Activate
Range("E5") = "Especes"
Range("B5") = Range("E1")
End If
Dim i as Integer
For i=12 To 40
If Range("O" & i).value > "0" Then
With Sheets("1")
.Range("E" & i-8) = "Especes"
.Range("B" & i-8) = .Range("E1")
End With
End If
Next