EXTRAIRE dans 2 colonnes des lignes

Option Explicit
Private Sub CommandButton1_Click()
For_X_to_Next_Ligne
End Sub
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim ns As Integer 'numero semaine
Dim nombre As Integer '2 caracteres à gauche
Dim result As Integer
ns = NoSem(Now)

    Set FL1 = Worksheets("Feuil1") 'adapter nom feuille
    NoCol = 3 'lecture de la colonne C
    For NoLig = 2 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
      result = ns - 7
        nombre = Left(Var, 2)
        If nombre <= result Then
       If FL1.Cells(NoLig, NoCol - 1) = "Rosette" Or FL1.Cells(NoLig, NoCol - 1) = "Noix" Then
        FL1.Cells(NoLig, NoCol + 3) = "extraction 7" 'adapter colonne résultat
        End If
        End If
        result = ns - 11
        If nombre <= result Then
        If FL1.Cells(NoLig, NoCol - 1) = "Boeuf" Then
        FL1.Cells(NoLig, NoCol + 3) = "extraction 11" 'adapter colonne résultat
        End If
        End If
    Next
    Set FL1 = Nothing
End Sub
Public Function NoSem(UneDate As Date) As Integer
   On Error Resume Next
   NoSem = CInt(Format(UneDate, "ww", vbMonday, vbFirstFourDays))
   'Verification du bug, reconnu par MS, sur Oleaut32.dll
   If NoSem > 52 Then
      If CInt(Format(UneDate + 7, "ww", vbMonday, vbFirstFourDays)) = 2 Then NoSem = 1
   End If
End Function