Sub variable()
'
' COMMENTAIRE Macro
'
'environnement du mag
'env 1
If Range("F19").Value = "oui" Then
Range("C112").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset.Value = Range("H19").Value
Else
Range("H112").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset.Value = Range("H19").Value
End If
'env 2
If Range("F21").Value = "oui" Then
Range("C112").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset.Value = Range("H21").Value
Else
Range("H112").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset.Value = Range("H21").Value
End If
'env 3
If Range("F23").Value = "oui" Then
Range("C112").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset.Value = Range("H23").Value
Else
Range("H112").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset.Value = Range("H23").Value
End If
'etc... encore 34 fois
ActiveCell.Offset(1, 0).Select
End Sub