probleme

Sub Bouton1_QuandClic()
Dim i As Byte
Dim derligne As Byte

For i = 1 To Val(Range('e8'))
        With Sheets('tortis')
                derligne = .Range('f65536').End(xlUp).Row + 1
                If derligne < 8 Then derligne = 8
                .Range('f' & derligne) = Range('d8')
                .Range('g' & derligne) = Range('e8')
        End With
Next i
End Sub

Cliquez pour agrandir...