Bonjour le forum & bonjour Robert et merci pour ton aide,j'ai bien été voir ton lien,mais je debute et c'est pas très parlant pour moi
En fait je pense avoir compris le fonctionnement mais ca marche pas et je vois pas trop pourquoi?
Sub essai()
Dim a As Byte
a = 26
Application.ScreenUpdating = False
Range('I14').Copy
Sheets('Classement').Select
Range('C36').End(xlUp).Offset(1, 0).Select
selection.PasteSpecial Paste:=xlValues
Sheets('Journée').Select
Range('L14').Copy
Sheets('Classement').Select
Range('F36').End(xlUp).Offset(1, 0).Select
selection.PasteSpecial Paste:=xlValues
Sheets('Journée').Select
Range('O14').Copy
Sheets('Classement').Select
Range('I36').End(xlUp).Offset(1, 0).Select
selection.PasteSpecial Paste:=xlValues
Range('M37').End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = _
'=IF(R[
&a&]C[-10]=MAX(R[&a&]C[-10],R[&a&]C[-7],R[&a&]C[-4]),''1'',''-'')'
Range('N37').End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = _
'=IF(R[&a&]C[-8]=MAX(R[&a&]C[-8],R[&a&]C[-5],R[&a&]C[-11]),''2'',''-'')'
Range('O37').End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = _
'=IF(R[&a&]C[-6]=MAX(R[&a&]C[-6],R[&a&]C[-9],R[&a&]C[-12]),''3'',''-'')'
a = a - 1
Application.ScreenUpdating = True
End Sub
Donc j'ai rajouter tous se qui est en gras avec la variable sous la forme &a&.A mon avis je dois faire une erreur mais je vois pas ou?
Merci pour votre aide