Tableau EXCEL

 1) Tu vas dans https://www.cjoint.com/ 
 2) Tu cliques sur [Parcourir] pour sélectionner ton fichier (15 Mo maxi)
 3) Tu défiles vers le bas pour cliquer sur le bouton bleu [Créer le lien Cjoint] 
 4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien en gras ; tu fais un clic-droit dessus et tu choisis "Copier le lien"
 5) Tu reviens dans ta discussion sur CCM, et dans ton message tu fais "Coller".
=>Voir la fiche https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers 

'actualiser
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False

'couleur fond blanc et suppression des lignes
With ThisWorkbook.Sheets("RECAP")
 For i = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("A" & i).Value = "BIARRITZ" Or .Range("A" & i).Value = "METZ" Or .Range("A" & i).Value = "NANCY" Or .Range("A" & i).Value = "TOULOUSE" _
Or .Range("A" & i).Value = "LYON" Or .Range("A" & i).Value = "LILLE" Or .Range("A" & i).Value = "BORDEAUX" Or .Range("A" & i).Value = "NANTES" Then
                                   Range("A" & i & ":E" & i).Interior.ColorIndex = 2 'blanc en-tete
                                  Else
                                   .Rows(i).Delete 'suppression lignes sauf en-tete
                        End If
            Next i
End With

' onglets
 actualiser ("BIARRITZ")
 actualiser ("METZ")
 actualiser ("NANCY")
 actualiser ("TOULOUSE")
 actualiser ("LYON")
 actualiser ("LILLE")
 actualiser ("BORDEAUX")
 actualiser ("NANTES")
 
'retabli couleur fond gris en-tete et enleve police gras données
With ThisWorkbook.Sheets("RECAP")
 For i = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("A" & i).Value = "BIARRITZ" Or .Range("A" & i).Value = "METZ" Or .Range("A" & i).Value = "NANCY" Or .Range("A" & i).Value = "TOULOUSE" _
Or .Range("A" & i).Value = "LYON" Or .Range("A" & i).Value = "LILLE" Or .Range("A" & i).Value = "BORDEAUX" Or .Range("A" & i).Value = "NANTES" Then
                                   Range("A" & i & ":E" & i).Interior.ColorIndex = 15 'gris en-tete
                                    Range("A" & i & ":E" & i).Font.Bold = True ' police gras en-tete
                                    Else
                                     Range("A" & i & ":E" & i).Font.Bold = False 'données police gras enlevée
                                      Range("A" & i & ":E" & i).Font.Size = 11 'taille police données
                                  End If
            Next i
End With

'rétabli lien hypertexte
With ThisWorkbook.Sheets("RECAP")
 For i = .Range("E" & .Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("A" & i).Value = "BIARRITZ" Or .Range("A" & i).Value = "METZ" Or .Range("A" & i).Value = "NANCY" Or .Range("A" & i).Value = "TOULOUSE" _
Or .Range("A" & i).Value = "LYON" Or .Range("A" & i).Value = "LILLE" Or .Range("A" & i).Value = "BORDEAUX" Or .Range("A" & i).Value = "NANTES" Then
                                   Else
                                     lien = .Cells(i, 5) 'nom du lien
                                   .Cells(i, 5).Select
     ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=lien, TextToDisplay:=lien 'rétabli lien hyperte
     End If
            Next i
End With
Application.ScreenUpdating = True
End Sub