Microsoft 365 COPIER COLLER AVEC CONDITIONS

Sub stat()
Dim tablo() As Variant

'demande les valeurs à chercher et adapter
ValB = CInt(Application.InputBox("Donnez la valeur à chercher dans la colonne B"))
ValC = CInt(Application.InputBox("Donnez la valeur à chercher dans la colonne C"))

With Sheets("STAT_PREVISION") 'dans la feuille
    Fin = .UsedRange.Rows.Count 'on récupère le numéro de la dernière ligne
    tablo = .Range("A1:C" & Fin).Value 'on met les 3 colonnes dans un tablo
    
    For i = LBound(tablo, 1) To UBound(tablo, 1) 'pour chaque ligne du tablo
        If tablo(i, 3) = ValC And tablo(i, 2) = "" Then tablo(i, 2) = tablo(i, 3) 'si la colonne C contient la valeur C et que la colonne B est vide, alors on copie C en B
    Next i
    .Range("A1:C" & Fin) = tablo 'on recolle le tablo résultat
End With
End Sub