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