Modifier ma macro pour supprimer les tirés

Bonjour à tous

J'ai besoin de faire un changement à ma macro. Le but est de pouvoir remplir la feuille "Info" et de retrouver les infos rentrés dans la feuille "Résultats". S'il y'a plusieurs jours ils sont tous pris en compte en mettant un tiré entre chacun mais s'il y'en a pas bcp mon tableau est un peu moche. Comment faire pour ne pas afficher mes tiré "-" si les cases sont vides?

Merci pour votre aide

Bonsoir,

Modifie les deux lignes suivantes dans ta macro :

  Tablo(1, Indice) = (Sheets("Info").Range("E3") & "." & Sheets("Info").Range("F3")) & "-" & (Sheets("Info").Range("E4") & "." & Sheets("Info").Range("F4")) & "-" & (Sheets("Info").Range("E5") & "." & Sheets("Info").Range("F5")) & "-" & (Sheets("Info").Range("E6") & "." & Sheets("Info").Range("F6"))
  Tablo(2, Indice) = (Sheets("Info").Range("E10") & "." & Sheets("Info").Range("F10")) & "-" & (Sheets("Info").Range("E11") & "." & Sheets("Info").Range("F11")) & "-" & (Sheets("Info").Range("E12") & "." & Sheets("Info").Range("F12")) & "-" & (Sheets("Info").Range("E13") & "." & Sheets("Info").Range("F13"))

comme celles-ci :

  Tablo(1, Indice) = WorksheetFunction.Substitute(Sheets("Info").Range("E3") & "." & Sheets("Info").Range("F3") & "-" & (Sheets("Info").Range("E4") & "." & Sheets("Info").Range("F4")) & "-" & Sheets("Info").Range("E5") & "." & Sheets("Info").Range("F5") & "-" & Sheets("Info").Range("E6") & "." & Sheets("Info").Range("F6"), "-.", "")
  Tablo(2, Indice) = WorksheetFunction.Substitute(Sheets("Info").Range("E10") & "." & Sheets("Info").Range("F10") & "-" & Sheets("Info").Range("E11") & "." & Sheets("Info").Range("F11") & "-" & Sheets("Info").Range("E12") & "." & Sheets("Info").Range("F12") & "-" & Sheets("Info").Range("E13") & "." & Sheets("Info").Range("F13"), "-.", "")

Merci bcp Raja, ça fonctionne !!