probleme sur une boucle en vba

Sub test()
' Effacer les lignes de Feuil1
  Sheets("Feuil1").Range("B12:B65536").ClearContents
  ' Empècher la mise à jour de l'écran
  Application.ScreenUpdating = False
  'Première ligne de la feuille émargement
  ligne = 12
  ' Avec la Feuil2
  With Sheets("Feuil2")
    ' Pour chaque ligne de cette feuille
    For m = 2 To .Range("A65536").End(xlUp).Row
      'pour les colonnes de 5 à 50 pas pas de 5
      For col = 5 To 50 Step 5
        ' Si la cellules de la ligne 'm' et colonne 'col' différente de vide
        If .Cells(m, col) <> "" Then
          ' L'inscrire dans la feuille émargement
          Sheets("Feuil1").Range("B" & ligne) = .Cells(m, col) & " " & .Cells(m, col + 1)
          ' Incrémenter la ligne d'émarement
          ligne = ligne + 1
        End If
      Next col
    Next m
  End With
  Application.ScreenUpdating = True
End Sub