Simplifier une commande

Bonjour forum,

je fais appel à vous afin de simplifier si possible la série de commandes ci-dessous:

Col = Range("C6").Value
    If Col = 2 Then
    Range("A13:B13").Value = "S/O"
    ElseIf Col = 3 Then
    Range("A13:C13").Value = "S/O"
    ElseIf Col = 4 Then
    Range("A13:D13").Value = "S/O"
    ElseIf Col = 5 Then
    Range("A13:E13").Value = "S/O"
    ElseIf Col = 6 Then
    Range("A13:F13").Value = "S/O"
    ElseIf Col = 7 Then
    Range("A13:G13").Value = "S/O"
    ElseIf Col = 8 Then
    Range("A13:H13").Value = "S/O"
    End If

En somme, vous comprenez que je cherche à attribuer l'expression: "S/O" dans une série de cellules sur la ligne 13 selon le nombre de colonnes qu'un usager a spécifié dans la cellule C6.

Je vous remercie d'avance pour vos réponses,

Emil

Bonjour,

    With [C6]
        If .Value > 1 And .Value < 9 Then [A13].Resize(, .Value).Value = "S/O"
    End With

Ou directement [A13].Resize(, [C6].Value).Value = "S/O" …

Bonjour Marc,

je suis toujours impressionné par tous vos astuces. J'ai testé sur ma macro et ça marche!

Un gros merci

Emil