Sub Récupération()
Dim NombreLigne As Integer, I As Integer, J As Integer, K As Integer, _
Contenu As String, Tableau
NombreLigne = InputBox("Lignes à traiter ?", "Traitement")
J = 1
With Sheets("BASE 1")
For I = 1 To NombreLigne
If Left(.Cells(I, 1), 12) = "Total Equipe" Then
Contenu = .Cells(I, 1)
Contenu = Replace(Replace(Replace(Replace(Contenu, "Total Equipe", ""), "*", ""), "!", ""), " ", " ")
Contenu = Trim(Replace(Replace(Replace(Replace(Contenu, " ", " "), " ", " "), " ", " "), " ", " "))
Tableau = Split(Contenu)
Sheets("Synthèse").Cells(J, 1) = "Total Equipe"
For K = 0 To 11
Sheets("Synthèse").Cells(J, K + 2) = Tableau(K) * 1
Next K
J = J + 1
End If
Next I
End With
End Sub