Sub Recap()
Dim DerLig As Long, Lig As Long, ShtR As Worksheet
Dim MotClé As String, NLigR As Long, TabVal() As String, I As Integer
' Initialisation des variables
Set ShtR = Sheets("Recap")
With Sheets("BD")
DerLig = .Range("A" & Rows.Count).End(xlUp).Row
For Lig = 1 To DerLig
MotClé = .Range("A" & Lig)
Select Case MotClé
Case "Village:"
' Prochaine ligne vide
NLigR = ShtR.Range("A" & Rows.Count).End(xlUp).Row + 1
' Inscire les données
ShtR.Range("A" & NLigR).Value = .Range("B" & Lig).Value
Case "Ressources espionnées:"
' Prochaine ligne vide = dernière ligne du village
NLigR = ShtR.Range("A" & Rows.Count).End(xlUp).Row
' Récupérer le tableau des valeurs
TabVal = Split(.Range("B" & Lig), " ")
' Inscire les données
For I = 0 To UBound(TabVal)
ShtR.Cells(NLigR, 2 + I).Value = Replace(TabVal(I), ".", "")
Next I
Case "Butin: "
' Prochaine ligne vide = dernière ligne du village
NLigR = ShtR.Range("A" & Rows.Count).End(xlUp).Row
' Récupérer le tableau des valeurs
TabVal = Split(.Range("B" & Lig), " ")
' Inscire les données
For I = 0 To UBound(TabVal)
ShtR.Cells(NLigR, 5 + I).Value = Replace(TabVal(I), ".", "")
Next I
End Select
Next Lig
End With
End Sub