Sub severity_index()
'Dim i As Integer 'Instruction inutile : la variable i n'est jamais utilisée dans la procédure.
With ThisWorkbook.Worksheets("severity_index")
' .Cells(1, 5) = "o" 'Instruction inutile : Worksheets("severity_index").Cells(1, 5) est une cellule faisant partie d'un groupe de cellules fusionnées.
.Cells(2, 2) = "i"
.Cells(2, 3) = "o"
.Cells(2, 4) = "o"
.Cells(2, 5) = "p"
.Cells(2, 6) = "b"
.Cells(2, 7) = "n"
.Cells(2, 8) = "n"
.Cells(2, 9) = "n"
.Cells(2, 10) = "b"
.Cells(2, 11) = "d"
.Cells(2, 12) = "e"
.Activate
With .[A1]
If IsEmpty(.Cells) Then
.Select
ElseIf IsEmpty(.Cells.Offset(1)) Then
.Offset(1).Select
Else
.End(xlDown).Offset(1).Select
End If
End With
Selection.Value = "toto"
End With
End Sub